Dim cpmc As WinForm.TextBox = e.Form.Controls("产品名称")
Dim lb As WinForm.ComboBox = e.Form.Controls("类别")
Dim pz As WinForm.ComboBox = e.Form.Controls("牌子")
Dim Filter As String = "1=1 "
With e.Form.Controls("产品名称")
If .Value IsNot Nothing Then
Filter &= " and 产品名称 like '*" & cpmc.text & "*'"
End If
End With
With e.Form.Controls("类别")
If .Value IsNot Nothing Then
Filter &= " and 类别 ='" & lb.text & "'"
End If
End With
With e.Form.Controls("牌子")
If .Value IsNot Nothing Then
Filter &= " and 牌子 ='" & pz.text & "'"
End If
End With
If Filter > "" Then
Tables("产品明细表").Filter = Filter
End If
If Filter > "" Then
e.Form.Controls("添加产品").Table.Filter = Filter
End If
[此贴子已经被作者于2014-5-9 16:21:41编辑过]
加好友 
发短信
Post By：2014/5/9 16:21:00 [显示全部帖子]
