此主题相关图片如下：222.jpg
此主题相关图片如下：111.jpg
筛选按钮代码如下，有时候会有下面两个报错
Dim stade As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim Endde As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim pd01 As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim cs01 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim kh01 As WinForm.ComboBox = e.Form.Controls("ComboBox4")
Dim dt As DataTable=DataTables("报价单")
Dim dts As DataTable=DataTables("报价申请")
Dim filter As String = "1=1"
Dim filter2 As String = "1=1"
If stade.text >"" Then
filter= filter & " and 日期>='" & stade.text & "'"
filter2= filter2 & " and 业务部_申请日期>='" & stade.text & "'"
End If
If Endde.text>"" Then
filter=filter & "and 日期<='" & Endde.text & "'"
filter2= filter2 & " and 业务部_申请日期<='" & stade.text & "'"
' Else
' MessageBox.show("请选择结束日期!")
' Return
End If
dt.LoadFilter=filter
dt.Load()
dts.LoadFilter=filter2
dts.Load()
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
If cs01.text>"" Then
Filter = Filter & " And "
Filter2 = Filter2 & " And "
End If
filter=filter & "[系列] like '" & cs01.text & "'"
filter2=filter2 & "[业务部_系列] like '%" & cs01.text & "%'"
End If
End With
With e.Form.Controls("ComboBox3")
If .Value IsNot Nothing Then
If pd01.text>"" Then
Filter = Filter & " And "
Filter2 = Filter2 & " And "
End If
filter=filter & "[款号] like '%" & pd01.text & "%'"
filter2=filter2 & "[业务部_款号] like '%" & pd01.text & "%'"
End If
End With
With e.Form.Controls("ComboBox4")
If .Value IsNot Nothing Then
If kh01.text>"" Then
Filter = Filter & " And "
Filter2 = Filter2 & " And "
End If
filter=filter & "[客户名称] like '%" & kh01.text & "%'"
filter2=filter2 & "[业务部_客户] like '%" & kh01.text & "%'"
End If
End With
If Filter > "" Then
Tables("报价单").Filter=filter
Tables("报价申请").Filter=filter2
End If
[此贴子已经被作者于2018/7/27 15:24:52编辑过]
加好友 
发短信
Post By：2018/7/27 15:24:00 [只看该作者]
