我正在尝试使用 OpenForm 函数根据多选列表框中的选择进行过滤。什么是正确的语法,或者有更好的方法吗?例如,让我们说:
列表框有 Ken、Mike 和 Sandy 选项。
Car 有 Car1、Car2 和 Car 3 选项。所有汽车都由该列表框中的 1 个或多个人拥有。
如果选择了列表框中的某个人,我想打开一个包含所选人员拥有的汽车的表单。
谢谢!
好的所以我想出了一种方法:
这是我习惯使用的具体代码。我在原始帖子中的示例使用了 Cars and People,但我的实际上下文不同:Estimators 和 Division of Work 是过滤器。如果您是有同样问题的人,请告诉我是否有任何问题!因为在不了解我到底想要完成什么的情况下可能会感到困惑。
Dim strQuery As String
Dim varItem As Variant
'query filtering for estimators and division list box selections
strQuery = ""
If Me.EstimatorList.ItemsSelected.Count + Me.DivisionList.ItemsSelected.Count > 0 Then
For Each varItem In Me.EstimatorList.ItemsSelected
strQuery = strQuery + "[EstimatorID]=" & varItem + 1 & " OR "
Next varItem
If Me.EstimatorList.ItemsSelected.Count > 0 And Me.DivisionList.ItemsSelected.Count > 0 Then
strQuery = Left(strQuery, Len(strQuery) - 4)
strQuery = strQuery + " AND "
End If
For Each varItem In Me.DivisionList.ItemsSelected
strQuery = strQuery + "[DivisionID]=" & varItem + 1 & " OR "
Next varItem
strQuery = Left(strQuery, Len(strQuery) - 4)
End If
使用 JOIN 函数获得更干净、更安全的代码
当您发现自己使用“、”“AND”“OR”等分隔符重复构建增量 SQL 字符串时,可以方便地集中生成数组数据,然后使用 VBA Join(array, delimiter) 函数。
如果感兴趣的键位于数组中,则用户从多选列表框中选择为表单过滤器属性构建 SQL WHERE 片段可能如下所示:
Private Sub lbYear_AfterUpdate()
Dim strFilter As String
Dim selction As Variant
selction = ListboxSelectionArray(lbYear, lbYear.BoundColumn)
If Not IsEmpty(selction) Then
strFilter = "[Year] IN (" & Join(selction, ",") & ")"
End If
Me.Filter = strFilter
If Not Me.FilterOn Then Me.FilterOn = True
End Sub
从选定的 lisbok 行中选择任何列数据的通用函数可能如下所示:
'Returns array of single column data of selected listbox rows
'Column index 1..n
'If no items selected array will be vbEmpty
Function ListboxSelectionArray(lisbox As ListBox, Optional columnindex As Integer = 1) As Variant
With lisbox
If .ItemsSelected.Count > 0 Then
Dim str() As String: ReDim str(.ItemsSelected.Count - 1)
Dim j As Integer
For j = 0 To .ItemsSelected.Count - 1
str(j) = CStr(.Column(columnindex - 1, .ItemsSelected(j)))
Next
ListboxSelectionArray = str
Else
ListboxSelectionArray = vbEmpty
End If
End With
End Function
应用程序库和编码中的一些数组构建器可以使 VB.NET 看起来更像