要写代码,比如
Dim t As Table = Tables("表A")t.Filter = iif(t.Filter>"", "(" & t.Filter & ") And ", "") & 新的条件