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 pzlb 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
With e.Form.Controls("牌子类别")
If .Value IsNot Nothing Then
Filter &= " and 牌子类别 ='" & pzlb.text & "'"
End If
End With
If Filter > "" Then
Tables("产品明细表").Filter = Filter
End If
If Filter > "" Then
e.Form.Controls("添加产品").Table.Filter = Filter
End If
加好友 
发短信
Post By：2014/5/9 20:59:00 [只看该作者]
