Dim hhs As String = DataTables("表A").GetComboListString("户号", "条件")Tables("表B").filter = "户号 in ('" & hhs.Replace("|", "','") & "')"