这里出了问题:
If Filter > "" Then
Filter = Filter & " Or "
End If
If t <> "" Then
Filter = Filter & "[" & dc.Name & "] Like '%" & T & "%'" '根据控件值迷糊筛选
End If
改为:
If Filter = "" Then
Filter = Filter & "[" & dc.Name & "] Like '%" & T & "%'" '根据控件值迷糊筛选
else
Filter = Filter & " or [" & dc.Name & "] Like '%" & T & "%'" '根据控件值迷糊筛选
End If
否则,Filter 永远等于空,并不是一段时间,而是一直都这样,您没发现而已!