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.TextBox = e.Form.Controls("TextBox6")
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("TextBox6")
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("选择到货物检_table1").Filter=filter & " [可到货数] > 0 "
Else
Tables("选择到货物检_table1").Filter=filter
End If
End If
[此贴子已经被作者于2018/9/22 14:46:51编辑过]
加好友 
发短信
Post By：2018/9/22 14:01:00 [只看该作者]
