Foxtable(狐表)用户栏目专家坐堂 → 模糊查找


  共有2705人关注过本帖树形打印复制链接

主题:模糊查找

帅哥,在线噢!
ycs5801
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:971 积分:6973 威望:0 精华:0 注册:2009/6/24 9:44:00
模糊查找  发帖心情 Post By:2021/8/20 0:12:00 [只看该作者]

With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        DataTables("主表").LoadFilter = "[事项名称] like '*" & .text & "*'"
        DataTables("主表").Load
        
    End If
End With

窗口中做了一个文本框,然后用按钮加载文本框中模糊查找对应的行,帮忙改下,哪里有问题?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/20 8:29:00 [只看该作者]

DataTables("主表").LoadFilter = "[事项名称] like '%" & .text & "%'"

 回到顶部
帅哥,在线噢!
ycs5801
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:971 积分:6973 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/8/20 9:43:00 [只看该作者]

老师,为什么用%而不用*,%不是代表单个字符吗?*是代表多字符啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/20 9:50:00 [只看该作者]

那是您自己这样以为而已,看帮助说明:http://www.foxtable.com/webhelp/topics/0688.htm

 回到顶部
帅哥哟,离线,有人找我吗?
at999at
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:99 积分:1192 威望:0 精华:0 注册:2019/4/6 11:56:00
  发帖心情 Post By:2021/8/23 16:47:00 [只看该作者]

赠你一个关于模糊搜索的内部函数,不适用于副本表,副本表自行修改代码。
If Args(0).KeyCode = Keys.Enter Then
    Dim a As String = Args(0).Form.Controls(Args(1)).Text
    Dim t As Table = Tables(Args(0).Form.TableName)
    Dim f As String = "1=2"
    For Each c As Col In t.Cols
        f & = " or convert(" & c.Name & ",'System.String') like '%" & a & "%'"
    Next
    t.Filter = f
End If

 回到顶部