主题：滤表中符合条件的所有数据

这样？

Tables("表A").Filter = "第一列 = '123' and 第二列 = '456'"

这样？

Dim t As Table = Tables("表A")
Dim str As String = "-1,"
str = str & t.DataTable.GetComboListString("_Identify", "第一列 = '123' and 第二列 = '456'").replace("|", ",")
t.Filter = "_Identify not in (" & str.trim(",") & ")"