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

比如

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(",", "','") & "')"

老师!您上面说的代码我不懂啊，请问查询按扭要如何修改呢？

窗口2_查询_Click

Dim Filter As String

With e.Form.Controls("出库单号")

    If .Value IsNot Nothing Then

        Filter = "出库单号 = '" & .Value & "'"

    End If

End With

With e.Form.Controls("部门")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter = Filter & "部门 like '*" & .Value & "*'"

    End If

End With

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)