Foxtable(狐表)用户栏目专家坐堂 → [求助]查询窗口设计完成了,怎么做到字符串的包含模糊查询?


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

主题:[求助]查询窗口设计完成了,怎么做到字符串的包含模糊查询?

帅哥哟,离线,有人找我吗?
soap_lwb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:65 积分:631 威望:0 精华:0 注册:2018/10/17 18:29:00
[求助]查询窗口设计完成了,怎么做到字符串的包含模糊查询?  发帖心情 Post By:2018/10/23 16:21:00 [只看该作者]

http://www.foxtable.com/webhelp/index.htm?page=1058.htm

参照上迷方法设计完了一个查询窗口,最后

If Filter > "" Then
    Tables("订单").Filter = Filter
End If

如果表中有一列为字符串列,需要做模糊(包含字符)查询,怎么改写代码?

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


加好友 发短信
等级:婴狐 帖子:38 积分:339 威望:0 精华:0 注册:2018/9/29 8:26:00
  发帖心情 Post By:2018/10/23 16:26:00 [只看该作者]

用like加通配符就可以了

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/23 16:46:00 [只看该作者]

比如

 

With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 = '" & .Value & "'"
    End If
End With

 

改成

 

With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 like '%" & .Value & "%'"
    End If
End With


 回到顶部