主题：多条件筛选

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

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

Tables("表A").Filter = "[对方户名] In ('郭俊鹏') and [交易户名] In ('张三','李四','王五','李六')"   上述代码在组合条件时 单引号怎么解决呀？

Dim str1 As String
Dim str2 As String
If Tables("银行现金汇总").current.IsNull("交易户名") = False AndAlso Tables("银行现金汇总").current.IsNull("涉及人员") = False Then '如果工号列不为空
    str1  = Tables("银行现金汇总").current("交易户名")
    str2  = Tables("银行现金汇总").current("涉及人员")
    Tables("交易明细_table1").filter = "[交易户名] In (" & str1 & ") And [对方户名] In (" & str2 & ")"
End If

这是修改后的代码

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

Dim str1 As String
Dim str2 As String
If Tables("银行现金汇总").current.IsNull("交易户名") = False AndAlso Tables("银行现金汇总").current.IsNull("涉及人员") = False Then '如果工号列不为空
    str1  = Tables("银行现金汇总").current("交易户名").Replace(",", "','")
    str2  = Tables("银行现金汇总").current("涉及人员").Replace(",", "','")
    Tables("交易明细_table1").filter = "[交易户名] In ('" & str1 & "') And [对方户名] In ('" & str2 & "')"
End If

执行上述修改后的代码，错误提示如下：

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.12.22.1
错误所在事件：
详细错误信息：
语法错误: IN 关键字后面的项必须用逗号分隔，并且必须用括号括起来。

不可能，请弹出msgbox(str1)、msgbox(str2)

执行5楼代码错误提示

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.12.22.1
错误所在事件：加载[银行明细]失败!
详细错误信息：
至少一个参数没有被指定值。

 这个是筛选啊，跟加载一点关系都没有。

 

 如果报错，肯定是其它代码影响的。做例子上来测试。

如果是一个人，显示的结果是 张三 如果是两个人 显示的是 张三’，‘李四   如果是三个人 显示的是张三’，‘李四 ’，‘王五，格式还是不对