Dim txt As String = e.Form.Controls("模糊查询").Text
Dim tbl As Table = Tables("材料窗口_材料表")
tbl.Filter = ""
If txt > "" Then
txt = "'%" & txt & "%'"
'tbl.Filter = "产品材料 is null or 产品材料 Like " & txt
tbl.Filter = "产品材料 Like " & txt & " Or 产品材料 is null Or 备注 is null or 备注 Like " & txt
End If