主题：[求助]求狐爸等之类高手帮忙看看代码问题！

我就是想要弄按钮来实行查询搜索     但是不知道是那一步出错了，在群里也没解决！先贴上我写的代码：

Dim cpbm As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim cpmc As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim cpgg As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim dw As WinForm.TextBox = e.Form.Controls("TextBox4")
Dim cpdj As WinForm.TextBox = e.Form.Controls("TextBox5")
Dim gykh As WinForm.TextBox = e.Form.Controls("TextBox6")
Tables("产品目录表").Filter="产品编码 like '*" & cpbm.text & "*' and 产品名称 like '*" & cpmc.text & "*' and 产品规格 like '*" & cpgg.text & "*' and 单位 like '*" & dw.text & "*' and 产品单价 = *" & cpdj.text & "* and 供应客户 like '*" & gykh.text & "*'"

之前听群里朋友把数字型的改成 = 了！还是出错，   实在没法求狐爸和大侠们帮我解脱下！随便附上附件！

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

点击浏览该文件:音浪迪ktv-erp.table

筛选代码应该不是这么写的，这样写如果某个控件值为空就会出错。

产品编码列是数值，不能用like，产品单价是数值型，不能用*符号。

http://www.foxtable.com/help/topics/1058.htm