Tables("表A").Filter = "A in ('" & Tables("表B").DataTable.GetComboListString("A").Replace("|","','") & "')"