以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87038)
--  作者：byf208
--  发布时间：2016/7/1 12:01:00
--  [求助]
Dim tymc As WinForm.TextBox = e.Form.Controls("通用名称")
Dim sccj As WinForm.TextBox = e.Form.Controls("生产厂家")
Dim ghdw As WinForm.TextBox = e.Form.Controls("供货单位")
Dim dkzh As WinForm.TextBox = e.Form.Controls("打款账号")
Dim ywy As WinForm.TextBox = e.Form.Controls("业务员")
Dim lxdh As WinForm.TextBox = e.Form.Controls("联系电话")
Dim czhm As WinForm.TextBox = e.Form.Controls("传真号码")
Dim lxqq As WinForm.TextBox = e.Form.Controls("联系QQ")
Dim fkms As WinForm.TextBox = e.Form.Controls("付款模式")
Dim sjqk As WinForm.TextBox = e.Form.Controls("上家欠款")
Dim bzj As WinForm.TextBox = e.Form.Controls("保证金")

Tables("基础信息表").Filter="通用名称 like \'*" & tymc.Text & "*\' and 生产厂家 like \'*" & sccj.text & "*\' and 供货单位 like \'*" & ghdw.text & "*\' and 打款账号 like \'*" & dkzh.text & "*\' and 业务员 like \'*" & ywy.text & "*\' and 联系电话 like \'*" & lxdh.text & "*\' and 传真号码 like \'*" & czhm.text & "*\' and 联系QQ like \'*" & lxqq.text & "*\' and 付款模式 like \'*" & fkms.text & "*\' and 上家欠款 like \'*" & sjqk.text & "*\' and 保证金 like \'*" & bzj.text & "*\'"
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table
--  作者：byf208
--  发布时间：2016/7/1 12:04:00
--  
加了这个    and 保证金 like \'*" & bzj.text & "*\'"         就不行了。郁闷中，请各位老师指出错误。谢谢
--  作者：大红袍
--  发布时间：2016/7/1 12:32:00
--  
and Convert(保证金,\'System.String\') like \'*" & bzj.text & "*\'"
--  作者：大红袍
--  发布时间：2016/7/1 12:33:00
--  

尽量不要这样写代码，查询窗口，参考

 

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

 

 

 
--  作者：byf208
--  发布时间：2016/7/1 15:22:00
--  
还是不可以呀，http://www.foxtable.com/help/topics/1058.htm  这个不可以模糊查找。麻烦老师继续知道。
--  作者：大红袍
--  发布时间：2016/7/1 15:24:00
--  
以下是引用byf208在2016/7/1 15:22:00的发言：
还是不可以呀，http://www.foxtable.com/help/topics/1058.htm  这个不可以模糊查找。麻烦老师继续知道。

 

一样可以模糊查找啊，=改成 like 就行啊。照着4楼写。
--  作者：byf208
--  发布时间：2016/7/1 15:32:00
--  
还是不可以呀，http://www.foxtable.com/help/topics/1058.htm  这个不可以模糊查找。麻烦老师继续指导。
--  作者：大红袍
--  发布时间：2016/7/1 15:34:00
--  

可以啊

 

Filter = Filter &   "雇员 = \'" & .Value &   "\'"

 

改成

 

Filter = Filter &   "雇员 like \'%" & .Value &   "%\'"
--  作者：byf208
--  发布时间：2016/7/2 9:30:00
--  
谢谢老师，问题已解决。