Dim txt As String = e.Form.Controls("TextBox7").Text
Dim tbl As DataTable = DataTables("订单表")
If txt = "" Then
tbl.LoadFilter = ""
Else
txt = "'%" & txt & "%'"
tbl.LoadFilter = "客户尊称 Like " & txt & " Or 订单号 Like " & txt & " Or 订单名称 Like " & txt
End If
tbl.Load
[此贴子已经被作者于2016/3/20 23:31:59编辑过]