Tables("供应商往来明细查询窗口_Table1").Filter = iif(Filter>"", "(" & filter & ") and ", "") & " (窗口属性 = 'QT' OR 窗口属性 = 'FK')"