以下是引用qq864729713在2014-5-9 13:33:00的发言:
好了, 谢谢。 如果说我类别需要和产品名称结合一起查询? 需要怎么改代码?
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
e.Form.Controls("Table1").Table.Filter = Filter
End If