Dim txt As String = e.Form.Controls("TextBox5").Text
Dim tbl As dataTable = Tables("主页_Table5").datatable
If txt = "" Then
tbl.loadFilter = ""
Else
txt = "'%" & txt & "%'"
tbl.loadFilter = "单位名称 Like " & txt & " Or 经理姓名 Like " & txt & " Or 会计姓名 Like " & txt & " Or 业务员姓名 Like " & txt
End If
tbl.load