这个简单。
If CurrentTable.Filter > "" Then CurrentTable.Filter = CurrentTable.Filter & " and " & filterElse CurrentTable.Filter = filterEnd If