主题：多条件筛选

从银行现金汇总表的交易户名列及涉及人员提取户名设置查询条件，从银行明细表提取数据，为此写了以下代码，但是该代码实现不了我所想要的功能

Dim str1 As String
Dim str2 As String
If Tables("银行现金汇总").current.IsNull("交易户名") = False AndAlso Tables("银行现金汇总").current.IsNull("涉及人员") = False Then '如果工号列不为空
    Dim nms1() As String = Tables("银行现金汇总").current("交易户名").Split(",") '将工号列内容拆分成数组
    Dim nms2() As String = Tables("银行现金汇总").current("涉及人员").Split(",") '将工号列内容拆分成数组
    For Each nm1 As String In nms1 '遍历参与加工此产品的每个工号
        str1 = str1 & " & nm1 & " & ","
    Next
    For Each nm2 As String In nms2 '遍历参与加工此产品的每个工号
        str2 = str2 & " & nm2 & " & ","
    Next
    'Tables("交易明细_table1").filter = "["交易户名"] In {str1} And ["对方户名"] In {str2}"
End If