以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求狐爸等之类高手帮忙看看代码问题!  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29548)

--  作者:zkysm
--  发布时间:2013/3/8 18:32:00
--  [求助]求狐爸等之类高手帮忙看看代码问题!

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

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


--  作者:czy
--  发布时间:2013/3/8 20:46:00
--  

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

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

 

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