关于模糊查询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有8465人关注过本帖树形打印复制链接主题：关于模糊查询

flashv

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：577 积分：4596 威望：0 精华：0 注册：2013/3/3 1:52:00

关于模糊查询 发帖心情

Post By：2013/3/5 23:27:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Filter = "客户名称 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("表a").Filter = Filter
End If

以上代码，是查询“表a”中字段名为“客户名称”。

客户名称模糊查询的代码是什么啊？

我在帮助中看到以下代码

Dim Str1 As String = "中华人民共和国"
Output.Show(Str1.Contains("人民"))

却不会用，请指教，呵呵。

程兴刚

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2013/3/5 23:41:00 [只看该作者]

论坛太多这样的实例，动手找一找！

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/3/6 8:09:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Filter = "客户名称 Like '*" & .Value & "*'"
    End If
End With
If Filter > "" Then
    Tables("表a").Filter = Filter
End If