以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口查询代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113455)

--  作者:kgdwxfmqj520
--  发布时间:2018/1/16 12:46:00
--  窗口查询代码
 请问一下这个窗口查询怎么写代码??????绑定的是副表。
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180116124142.jpg
图片点击可在新窗口打开查看

--  作者:kgdwxfmqj520
--  发布时间:2018/1/16 12:47:00
--  
Dim wlbh As WinForm.TextBox = e.Form.Controls("刀具名称")
Dim xhgg As WinForm.TextBox = e.Form.Controls("尺寸大小")
Dim wlmc As WinForm.ComboBox = e.Form.Controls("类型")

Tables("添加刀具_刀具信息").Filter = "刀具名称 like \'*" & wlbh.Text & "*\' and 类型 like \'*" & wlmc.Text & "*\' and 尺寸大小 like \'*" & xhgg.Text & "*"

这样不行。

--  作者:aduydgd
--  发布时间:2018/1/16 14:23:00
--  
Tables("添加刀具_刀具信息").Filter = " 刀具名称 like \'%" & wlbh.Text & "%\' and 类型 like \'%" & wlmc.Text & "%\' and 尺寸大小 like \'%" & xhgg.Text & "%"

Tables("添加刀具_刀具信息").Filter = " 刀具名称 = \'" & wlbh.Text & "\' and 类型 = \'" & wlmc.Text & "\' and 尺寸大小 = \'" & xhgg.Text & ""

Tables("添加刀具_刀具信息").Filter = " 刀具名称 like \'%" & wlbh.Text & "%\' or 类型 like \'%" & wlmc.Text & "%\' or 尺寸大小 like \'%" & xhgg.Text & "%"


你自己试试这几种方法,看看哪个是你要的结果图片点击可在新窗口打开查看



--  作者:kgdwxfmqj520
--  发布时间:2018/1/16 14:43:00
--  
   是这样……。
图片点击可在新窗口打开查看此主题相关图片如下:312.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/1/16 14:44:00
--  

参考这种方法

 

http://www.foxtable.com/webhelp/scr/1058.htm