以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]有没有老师能提供多个textbox控件可以textchanged即时筛选的例子？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8088)
--  作者：ddlzq
--  发布时间：2010/9/4 14:38:00
--  [求助]有没有老师能提供多个textbox控件可以textchanged即时筛选的例子？

各位老师：

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

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

[此贴子已经被作者于2010-9-7 7:59:35编辑过]
--  作者：blackzhu
--  发布时间：2010/9/4 16:22:00
--  
     看窗口1
--  作者：blackzhu
--  发布时间：2010/9/4 16:22:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:窗口筛选.table
--  作者：dearleung
--  发布时间：2010/9/4 22:27:00
--  

请问如何写代码。。。。才能达到仅显示符合筛选条年的最近三条记录？！
--  作者：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编辑过]
--  作者：ddlzq
--  发布时间：2010/9/6 8:21:00
--  

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

下一步看还有没有更帅的那种筛选，就是每列数据第一行有个停靠筛选的textbox，我估计做窗体能做出来，这种 风格现在好像很流行 。。
--  作者：ddlzq
--  发布时间：2010/9/6 8:42:00
--  
狐爸，这版需要激活了，我的开发版还打不开table的文件，想学习下.table中的代码，咋办啊？
--  作者：狐狸爸爸
--  发布时间：2010/9/6 8:46:00
--  
以下是引用ddlzq在2010-9-6 8:42:00的发言：
狐爸，这版需要激活了，我的开发版还打不开table的文件，想学习下.table中的代码，咋办啊？

 

不用担心，购买开发版，等于同时拥有开发版和商业版，因为开发版的狗支持商业版，而商业版能打开table文件。
--  作者：ddlzq
--  发布时间：2010/9/7 7:54:00
--  
以下是引用blackzhu在2010-9-4 16:22:00的发言：
 下载信息  [文件大小：404.0 KB  下载次数：12]
图片点击可在新窗口打开查看点击浏览该文件:窗口筛选.table

 

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