无法多条件筛选
Dim txt As String = e.Form.Controls("TextBox").Text
Dim tbl As Table = Tables("订单_Table1")
With e.Form.Controls("textbox1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
tbl.DataTable.loadFilter = "([客户名称] like '%" & .Value & "%' Or [公司名称] like '%" & .Value & "%' )"
tbl.DataTable.loadPage = 0
tbl.DataTable.load
End If
End With
With e.Form.Controls("textbox2")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
tbl.DataTable.loadFilter = "([产品名称] like '%" & .Value & "%' )"
tbl.DataTable.loadPage = 0
tbl.DataTable.load
End If
End With
加好友 
发短信
Post By：2019/10/2 20:09:00 [只看该作者]
