Dim txt4 As String = e.Sender.Text
Dim tbl4 As Table = Tables("支piao")
If txt4 = "" Then
Tbl4.Filter = ""
Else
Txt4 = "'*" & txt4 & "*'"
Tbl4.Filter = "支piao号码 Like " & txt4 & " Or 收款人 Like " & txt4 & " Or 金额 Like " & txt4 & " Or 日期 Like " & txt4
End If
首先肯定错,已改了下.第二,数值,日期等不能模糊筛选.