[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

加了这个 and 保证金 like '*" & bzj.text & "*'" 就不行了。郁闷中，请各位老师指出错误。谢谢

and Convert(保证金,'System.String') like '*" & bzj.text & "*'"

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

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

还是不可以呀，http://www.foxtable.com/help/topics/1058.htm 这个不可以模糊查找。麻烦老师继续知道。

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

一样可以模糊查找啊，=改成 like 就行啊。照着4楼写。

还是不可以呀，http://www.foxtable.com/help/topics/1058.htm 这个不可以模糊查找。麻烦老师继续指导。

可以啊

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

改成

Filter = Filter & "雇员 like '%" & .Value & "%'"

谢谢老师，问题已解决。

主题：[求助]