以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于在TextBox中实现模糊查询的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29367)
--  作者：fengyungongzi
--  发布时间：2013/3/5 14:41:00
--  关于在TextBox中实现模糊查询的问题
我想设计一个代码，就是在textbox 中输入一个字，然后相应的表格，根据输入的内容进行自动筛选，将筛选后的表格，显示出来。
--  作者：狐狸爸爸
--  发布时间：2013/3/5 14:44:00
--  

这里有个完整的例子：

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

 

这里有个比较相关的：

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

 
--  作者：fengyungongzi
--  发布时间：2013/3/5 14:57:00
--  
我的不是这个意思，没有那么复杂，一个textbox 和一个table对应。
就是这个不会改了。

Dim ch As String = e.Form.Controls("以车号方式查询").Text
Dim tbl As Table = Tables("窗口1_Table1")
If ch  = "" Then
    tbl.Filter = ""
Else
     ch = "\'*" & txt & "*\'"
    tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt 
End If



划线部分不会改了。
--  作者：fengyungongzi
--  发布时间：2013/3/5 15:04:00
--  
Dim ch As String = e.Form.Controls("车号方式查询").Text
Dim tbl As Table = Tables("接听电话记录")
If ch = "" Then
    tbl.Filter = ""
Else
    ch = "\'*" & ch & "*\'"
    tbl.Filter = "记录人 Like " & ch  & " Or 出站口 Like " & ch & ""

End If

划线部分不会改了
--  作者：狐狸爸爸
--  发布时间：2013/3/5 15:31:00
--  

你写的没有错啊：

 

Dim ch As String = e.Form.Controls("车号方式查询").Text

Dim tbl As Table = Tables("接听电话记录")

If ch = "" Then    

    tbl.Filter = ""

Else    

   ch = "\'*" & ch & "*\'"    

   tbl.Filter = "记录人 Like " & ch  & " Or 出站口 Like " & ch
End If

 

实在搞不定，就做个简单的例子发上来看看吧