以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求一个搜索功能的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25488)
--  作者：一丝忧伤
--  发布时间：2012/11/10 12:57:00
--  求一个搜索功能的代码

因为是菜鸟,对于代码是空白

现在想求一个代码

能够实现

 

我在搜索框中输入一个"大"字点击搜索按钮后会自动列出来所有带"大"字的行

在搜索框中输入一个"我"会自动列出来所有带"我"的行...

 

请大神们赐个代码,

谢谢~~
--  作者：lin_hailun
--  发布时间：2012/11/10 13:07:00
--  
Dim t As Table = Tables("表名")

t.Filter = ""

 

Dim keyword As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim filter As String = "1=2"

For Each c As Col In t.Cols
    filter = filter & " Or " & c.Name & " Like \'*" & keyword.Text & "*\'"
Next

t.Filter = filter
--  作者：一丝忧伤
--  发布时间：2012/11/10 20:45:00
--  
以下是引用lin_hailun在2012-11-10 13:07:00的发言：
Dim t As Table = Tables("表名")

t.Filter = ""

 

Dim keyword As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim filter As String = "1=2"

For Each c As Col In t.Cols
    filter = filter & " Or " & c.Name & " Like \'*" & keyword.Text & "*\'"
Next

t.Filter = filter
太棒了，可以了，非常感谢