标题：[求助]有没有老师能提供多个textbox控件可以textchanged即时筛选的例子？

1楼

ddlzq 发表于：2010/9/4 14:38:00

各位老师：

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

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

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

2楼

blackzhu 发表于：2010/9/4 16:22:00

看窗口1

3楼

blackzhu 发表于：2010/9/4 16:22:00

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

4楼

dearleung 发表于：2010/9/4 22:27:00

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

5楼

mr725 发表于：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编辑过]

6楼

ddlzq 发表于：2010/9/6 8:21:00

谢谢MR725狐精老师，学习一下。

下一步看还有没有更帅的那种筛选，就是每列数据第一行有个停靠筛选的textbox，我估计做窗体能做出来，这种风格现在好像很流行。。

7楼

ddlzq 发表于：2010/9/6 8:42:00

狐爸，这版需要激活了，我的开发版还打不开table的文件，想学习下.table中的代码，咋办啊？

8楼

狐狸爸爸 发表于：2010/9/6 8:46:00

以下是引用ddlzq在2010-9-6 8:42:00的发言：

狐爸，这版需要激活了，我的开发版还打不开table的文件，想学习下.table中的代码，咋办啊？

不用担心，购买开发版，等于同时拥有开发版和商业版，因为开发版的狗支持商业版，而商业版能打开table文件。

9楼

ddlzq 发表于：2010/9/7 7:54:00

以下是引用blackzhu在2010-9-4 16:22:00的发言：

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

blackzhu老师：这个例子可以实现一个textbox的即时筛选执行，我想做的是多个textbox都使用textboxchanged的筛选的例子代码？

共9 条记录, 每页显示 10 条, 页签: [1]