Dim filter As String = "1=1"
Dim ddh As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim gys As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim lm As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim ys As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim kh As WinForm.TextBox = e.Form.Controls("TextBox5")
Dim wgh As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim v As Integer = wgh.text
Dim qs As WinForm.RadioButton = e.Form.Controls("RadioButton1")
Dim qb As WinForm.RadioButton = e.Form.Controls("RadioButton2")
With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then
If ddh.text>"" Then
Filter = Filter & " And "
Else
filter=filter & "[采购单号] like '" & ddh.text & "'"
End If
End If
End With
With e.Form.Controls("TextBox2")
If .Value IsNot Nothing Then
If gys.text>"" Then
Filter = Filter & " And "
End If
filter=filter & "[供应商属性_供应商名称] like '%" & gys.text & "%'"
End If
End With
With e.Form.Controls("TextBox3")
If .Value IsNot Nothing Then
If lm.text>"" Then
Filter = Filter & " And "
End If
filter=filter & "[物料基本信息_物料名称] like '%" & lm.text & "%'"
End If
End With
With e.Form.Controls("TextBox4")
If .Value IsNot Nothing Then
If ys.text>"" Then
Filter = Filter & " And "
End If
filter=filter & "[物料配色] like '" & ys.text & "'"
End If
End With
With e.Form.Controls("TextBox5")
If .Value IsNot Nothing Then
If kh.text>"" Then
Filter = Filter & " And "
End If
filter=filter & "[款号] like '%" & kh.text & "%'"
End If
End With
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
If wgh.text>"" Then
Filter = Filter & " And "
End If
filter=filter & "[物供号] = "& v &" "
End If
End With
If Filter > "" Then
If qs.Checked = True Then
Tables("选择到货物检_table3").Filter=filter & " and [到货数] > [入库数] "
Else If qs.Checked = False Then
Tables("选择到货物检_table3").Filter=filter
End If
End If
加好友 
发短信
Post By：2020/3/11 8:53:00 [只看该作者]
