Dim Filter As String
Dim tbl As Table = Tables("订单_table1")
With e.Form.Controls("textbox1")
If .Value IsNot Nothing Then
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 .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "产品名称 like '%" & .Value & "%'”
tbl.DataTable.loadFilter = Filter
tbl.DataTable.loadPage = 0
tbl.DataTable.load
End If
End With
With e.Form.Controls("DateTimePicker1")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= '" & .Value & "'"
tbl.DataTable.loadFilter = Filter
tbl.DataTable.loadPage = 0
tbl.DataTable.load
End If
End With
With e.Form.Controls("DateTimePicker2")
If .Value IsNot Nothing Then
If Filter <"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= '" & .Value & "'"
tbl.DataTable.loadFilter = Filter
tbl.DataTable.loadPage = 0
tbl.DataTable.load
End If
End With
textbox1 和 textbox2 只能二选一，要么显示所有输入的客户名称或者公司名称，要么显示所有输入的产品名称，无法显示输入的客户名称和产品名称的搜索结果。 而datetimepicker则没问题，输入一个客户名称，选择时间，则可以显示那段时间的客户
加好友 
发短信
Post By：2019/10/2 20:09:00 [只看该作者]
