参考代码
Dim f As String = Tables("表A").Filterf = iif(f > "", "(" & f & ") and 新的条件", "新的条件")msgbox(f)Tables("表A").Filter = f