[求助]有没有老师能提供多个textbox控件可以textchanged即时筛选的例子？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]有没有老师能提供多个textbox控件可以textchanged即时筛选的例子？

共有16071人关注过本帖树形打印复制链接主题：[求助]有没有老师能提供多个textbox控件可以textchanged即时筛选的例子？

ddlzq

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

加好友

发短信

等级：一尾狐帖子：418 积分：3209 威望：0 精华：0 注册：2010/2/24 13:33:00

[求助]有没有老师能提供多个textbox控件可以textchanged即时筛选的例子？ 发帖心情

Post By：2010/9/4 14:38:00 [只看该作者]

各位老师：

使用狐表例子“示例文件为CaseStudy目录下的“窗口筛选.table”。”可以通过按钮筛选，那有没有即时使用textchanged的多条件即时筛选例子呢？麻烦哪位老师指点一下，感谢！

就是设计个窗体，有多个textbox控件，对应不同的列，不是输入条件后按一个“筛选”按钮按条件筛选，而是每个textbox框输入条件后即时会触发textchanged属性而即时筛选。

[此贴子已经被作者于2010-9-7 7:59:35编辑过]

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/9/4 16:22:00 [只看该作者]

看窗口1

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2010/9/4 16:22:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:窗口筛选.table

dearleung

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

加好友

发短信

等级：幼狐帖子：189 积分：2370 威望：0 精华：1 注册：2008/9/26 22:35:00

Post By：2010/9/4 22:27:00 [只看该作者]

请问如何写代码。。。。才能达到仅显示符合筛选条年的最近三条记录？！

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2010/9/5 0:06:00 [只看该作者]

增加一个按钮或在 leave 事件中(按回车后执行) :

Dim txb1 As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")

'这里先筛选出你要得年份

Tables("窗口1_Table1").Sort = "日期"

Dim Filter As String = "[_identify] = " & Tables("窗口1_Table1")(Tables("窗口1_Table1").count -3,"_identify") & ""
Filter = Filter & " Or [_identify] = " & Tables("窗口1_Table1")(Tables("窗口1_Table1").count -2,"_identify") & ""
Filter = Filter & " Or [_identify] = " & Tables("窗口1_Table1")(Tables("窗口1_Table1").count -1,"_identify")
Tables("窗口1_Table1").Filter = Filter

[此贴子已经被作者于2010-9-5 0:32:24编辑过]