以文本方式查看主题

-  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=57099)

--  作者:qianxueshi
--  发布时间:2014/9/18 9:59:00
--  查询功能的实现
按关键字查询的功能怎么实现?
--  作者:Bin
--  发布时间:2014/9/18 10:01:00
--  
http://www.foxtable.com/help/topics/0448.htm



--  作者:有点甜
--  发布时间:2014/9/18 10:01:00
--  

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

 


--  作者:qianxueshi
--  发布时间:2014/9/18 10:19:00
--  
我想要的不是这种,图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/9/18 10:23:00
--  
http://www.foxtable.com/help/topics/2116.htm
--  作者:有点甜
--  发布时间:2014/9/18 10:23:00
--  

Dim filter As String = "1=2"
For Each dc As Col In Tables("表A").Cols
    filter &= " or convert(,\'System.String\') like \'%" & e.Form.Controls("TextBox1").Text & "%\'"
Next

Tables("表A").Filter = filter

[此贴子已经被作者于2014-9-18 10:23:41编辑过]

--  作者:qianxueshi
--  发布时间:2014/9/18 10:41:00
--  
我复制了你的代码但是我不知道这个怎么改?
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2014/9/18 11:07:00
--  

 写错了

 

Dim filter As String = "1=2"
For Each dc As Col In Tables("表A").Cols
    filter &= " or convert(" & dc.Name & ",\'System.String\') like \'%" & e.Form.Controls("TextBox1").Text & "%\'"
Next

Tables("表A").Filter = filter


--  作者:qianxueshi
--  发布时间:2014/9/18 11:23:00
--  
谢谢