以文本方式查看主题

-  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=107906)
--  作者：LTHERO
--  发布时间：2017/10/12 10:49:00
--  模糊查询
如何在一个窗口中对一张表进行部分字段查询  比如说： 列名为 “姓名”  第一列数据为 “张三”   我使用的代码 只能输入全部的列数据（也就是输入张三时）才会查询出来，我想我输入一个"张"字时，数据就可以筛选出来。 下面是我使用的代码。

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Filter = "姓名 = \'" & .Value & "\'"
    End If
End With

大神帮忙解决下，谢谢！
--  作者：LTHERO
--  发布时间：2017/10/12 11:09:00
--  
我找到啦，在帮助文档里。
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("船闻速递_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "名称 Like " & txt
End If