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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口查询问题

共有9183人关注过本帖树形打印复制链接主题：窗口查询问题

周子杰

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

加好友

发短信

等级：小狐帖子：311 积分：2288 威望：0 精华：0 注册：2011/9/22 10:21:00

窗口查询问题 发帖心情

Post By：2012/5/16 17:38:00 [只看该作者]

请指点：谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg

我新建立此查询窗口，户名：地址：等都用的是组合框，“列表项目”中数据表，设置为yonghu，取值列为hum，但我想要查询时，能在户名，地址中输入任何一个字符便开始查询，请代码怎么写呀。

rjh4078

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

加好友

发短信

等级：狐精帖子：3360 积分：24792 威望：0 精华：0 注册：2012/3/26 21:47:00

Post By：2012/5/17 8:21:00 [只看该作者]

其实用不着搞这么多查询框一个textbox查询字符另外加几个时间的就可以了字符查询可以在textbox的textchanged事件里写代码

With e.Form
    If e.sender.text <> "输入关键字查询" Then
        Dim dst As Table = Tables(要查询的表)
        Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
        dst.Filter = "[字符类列名1] Like '*" & txb1.text & "*' or [字符类列名2] Like '*" & txb1.text & "*' Or [字符类列名3] Like '*" & txb1.text & "*' Or [字符类列名4] Like '*" & txb1.text & "*'"
    End If
End With