java 多选列表框_根据表单中的多个列表框过滤查询

我的理解是你有一个带有未绑定的多选列表框的表单，你想在数据表视图中打开一个查询，并根据列表框选择进行查询 .

这意味着您必须检查每个列表框的 ItemsSelected 集合并相应地更新查询的 SQL 属性 .

在我的测试表单上，其中包含一个名为lstFname的多选列表框，在列表框中选择名称Jack，Dave和Tim，然后单击命令按钮(cmdOpenQuery)，创建此 SELECT 语句 .

SELECT c.*

FROM Contacts AS c

WHERE c.fname IN ('Dave','Jack','Tim')

然后该语句将保存为名为qrySearchForm的查询的 SQL 属性 . 最后，在数据表视图中打开该查询 .

但是，我的示例只包含一个列表框，并且您有几个列表框 . 因此，您需要做更多的工作来扩展这个简单的示例 .

这是我的表单的代码模块......

Option Compare Database

Option Explicit '

Private Sub cmdOpenQuery_Click()

Const cstrQuery As String = "qrySearchForm"

Dim strNames As String

Dim strSelect As String

Dim varItm As Variant

strSelect = "SELECT c.*" & vbCrLf & "FROM Contacts AS c"

For Each varItm In Me.lstFname.ItemsSelected

strNames = strNames & ",'" & _

Me.lstFname.ItemData(varItm) & "'"

Next varItm

If Len(strNames) > 0 Then

strNames = Mid(strNames, 2) ' discard leading comma

strSelect = strSelect & vbCrLf & _

"WHERE c.fname IN (" & strNames & ")"

End If

Debug.Print strSelect

CurrentDb.QueryDefs(cstrQuery).Sql = strSelect

DoCmd.OpenQuery cstrQuery

End Sub