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

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

窗口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