Vb6 更新列表框中的选定行-Visual Basic 6

我使用的是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

---

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

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

statement=“更新客户集标志='1'其中”

我不能再多提建议了，因为我们不知道你的标准应该是什么。

---

只有你说出来。

你的代码会更新所有记录，因为缺少标准。 sql语句应为：

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

statement=“更新客户集标志='1'其中”

我不能再多提建议了，因为我们不知道你的标准应该是什么。 只有你说了