在 VB6 中的多选列表框搜索中多次显示结果

Question

我正在用 vb6 创建一个具有 ms 访问权限的程序。 当我从VB中的多选列表框中搜索数据库时，它错误地显示结果。

如果我单击第一项，它会显示一次 如果我单击第二个项目，它会显示该项目两次 我单击第三个项目，它显示该项目三次。

如何解决这个问题

我尝试了以下代码

For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) = True Then
If str <> "" Then str = str & ""
If Val(List1.SelCount) = 1 Then
str = List1.List(List1.ListIndex)
Else
str = str & " or name= " & List1.List(List1.ListIndex)
End If
End If
Next i
If str <> "" Then
Set rs = db.OpenRecordset("select * from Customers where name= '" & str & "'")
display
End If

结果

Kumar vasanth vasanth kannan kannan kannan

Answer 1

试试这个：

Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim str As String
For i = List1.ListCount - 1 To 0 Step -1
If List1.Selected(i) Then str = str & " or name = '" & List1.List(i) & "'"
Next i
str = Mid(str, 4)
If str <> "" Then
Set rs = db.OpenRecordset("select * from Customers where " & str)
display
End If
End Sub