主题：求助呀，第一课程到最后一步完成不了，指教下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.rar

做到最后一步了，为什么就查询不了，请高手指教下原因，谢谢！

 查询按钮的代码换成

Dim cj As WinForm.ComboBox = e.Form.Controls("客户")
Dim wlmc As WinForm.ComboBox = e.Form.Controls("型号规格")
Dim wlbh As WinForm.TextBox = e.Form.Controls("产品配置")
Dim xhgg As WinForm.TextBox = e.Form.Controls("单价")

Dim filter As String = "1=1"
If cj.Text <> "" Then filter = filter & " And 客户名称 = '" & cj.Text & "'"
If wlmc.Text <> "" Then filter = filter & " And 型号规格 = '" & wlmc.Text & "'"
If wlbh.Text <> "" Then filter = filter & " And 产品配置 like '*" & wlbh.Text & "*'"
If xhgg.Text <> "" Then filter = filter & " And 单价 = " & xhgg.Text
Tables("客户单价表").Filter = filter

感谢，可以了，