Dim txt As String = e.Form.Controls("a").Text
Dim tbl As Table = Tables("请购单-04_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "物料规格 Like " & txt & " Or 物料型号 Like " & txt & " Or Convert(物料编码, \'System.String\') Like " & txt & " Or 成品型号 Like " & txt & " Or 加工工艺 Like " & txt & " "
End If