更新ListBox中的选定行 - Visual Basic 6

Question

我使用的是VB6，这里是我用来更新列表框中所选行的代码，但遗憾的是代码正在更新所有字段而不符合标准。

有任何帮助可以了解此代码的错误以及解决此问题的任何建议。

Dim i As Integer

    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
        statement = "UPDATE Customer SET Flag = '1' "
        End If
con.Execute statement, , adCmdText
Next i

Answer 1

您的代码会更新所有记录，因为缺少条件。 sql语句应为：

statement = "UPDATE Customer SET Flag = '1' WHERE <your_criteria> "

我无法提出更多建议，因为我们不知道你的标准是什么。 只有你说出来。