代码
Dim str As String = DataTables("表A").GetComboListString("合同号", "经办人 = '" & user.Name & "'").Replace("|", "','")Tables("表B").Filter = "合同号 In ('" & str & "')"