Dim filter = tbl.filter
tbl.Filter = iif(filter>"", "(" & Filter & ") AND ", "") & " 所属期间 Like " & txt