比如代码
Dim str = DataTables("表B").GetComboListString("第一列").replace("|", "','")Tables("表A").filter = "第一列 in ('" & str & "')"