在vb6中的mulitselect列表框搜索中多次显示结果

m0rkklqb 于 2021-07-26 发布在 Java

关注(0)|答案(1)|浏览(377)

我正在用vb6和ms access创建一个程序。当我在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

sql ms-access vb6

来源：https://stackoverflow.com/questions/62420689/displays-the-result-many-times-in-mulitselect-listbox-search-in-vb6

1条答案

按热度按时间

b4lqfgs41#

试试这个：

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

赞(0）回复(0）举报 2021-07-26

我来回答

在vb6中的mulitselect列表框搜索中多次显示结果

1条答案

相关问题

热门标签

最新问答