主题：请问我想同时选择多个数据进行查询应该怎样实现？

比如

Tables("表A").Filter = "部门 in ('部门1', '部门2', '部门3')"

--------------

Dim filter As String = Tables("表A").Filter
filter = iif(filter > "", "(" & filter & ")", "1=1") & " and 部门 in ('" & e.Form.controls("CheckedListBox1").text.replace(",", "','") & "')"

Dim Filter As String = "1=1"
With e.Form.Controls("出库单号")
    If .Value IsNot Nothing Then
        Filter = " and 出库单号 = '" & .Value & "'"
    End If
End With

With e.Form.Controls("部门")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 部门 in ('" & .text.replace(",", "','") & "')"
    End If

End With

Dim filter1 As String = Tables("表A").Filter
filter = iif(filter1 > "", "(" & filter1 & ")", "1=1") & " and " & filter

msgbox(filter)