Office中国论坛/Access中国论坛

标题: 【源码】超强通用窗体数据筛选器ActiveFormFilter(最后更新日期2010-8-30) [打印本页]

作者: 红尘如烟 时间: 2010-1-6 22:25
标题: 【源码】超强通用窗体数据筛选器ActiveFormFilter(最后更新日期2010-8-30)
本帖最后由红尘如烟于 2010-9-2 14:51 编辑

1.用于在绑定了数据源的窗体（或子窗体）中进行数据筛选，完全可以作为通用查询功能来使用。
2,在需要进行数据筛选查询的窗体中创建一个按钮，然后通过该按钮来打开ActiveFormFilter窗体，示例代码如下：
Private Sub 筛选按钮_Click()
'Me.子窗体.SetFocus '如果要对子窗体的数据进行筛选才用这一句
DoCmd.OpenForm "ActiveFormFilter"
End Sub
3.子窗体优先于窗体，但如果子窗体未绑定记录集，则即使将焦点移到子窗体再打开筛选器，也会是对窗体数据进行筛选。
4.能够自动识别各种数据类型，动态显示各个字段的所有值（排除重复值和空值，可选功能），只需用鼠标点击即可完成筛选查询，而且可以对条件代码进行手动编辑，进行更加复杂的筛选查询。
5.可以对筛选方案进行保存、添加、删除操作，只需在已保存的方案列表中双击方案名称，或者选中方案名称后点击【筛选】按钮即可应用已保存的筛选方案。
6.关于筛选方案的编辑，筛选方案列表处于选中状态时，点【保存】按钮会保存并覆盖到已有方案记录中，否则保存为新记录。筛选方案必须点击【保存】按钮才能保存，临时筛选只需添加条件后点击【应用筛选】按钮即可。要清除当前已输入的条件，只需点击方案列表下边的【新建】按钮。
7.多条件时需要点【添加】按钮将条件加入到条件框中，如果只有一个条件，则可以直接点【应用筛选】按钮进行筛选。
8.筛选方案数据保存在表USysFilterSchemes中，这个表在打开筛选器时如果不存在会自动创建，所以大家在使用时只需要把窗体AcitveFormFilter导入你自己开发的系统中即可。

本人技术水平有限，遗漏之处难免，有什么bug或改进建议欢迎大家向我提出……
[attach]43265[/attach]

更新记录：
2010-1-8 修正了字段值列表中非文本类型字段排序不正确的问题。
2010-8-30 添加了在组合框列表中显示字段值为可选的功能。

作者: fnsmydyang 时间: 2010-1-6 22:45
这么好的作品，怎么没有人顶呢？我来顶一下（学习一下下）

作者: c101 时间: 2010-1-6 23:24
謝謝分享

作者: iamee 时间: 2010-1-6 23:49
坚决顶起来~~~~~~~~

作者: jackysu78 时间: 2010-1-7 00:23
谢谢分享，永远支持你

作者: 红尘如烟 时间: 2010-1-7 00:53
修正了字段值列表中非文本类型字段排序不正确的问题

作者: goto2008 时间: 2010-1-7 01:52
想学习哦

作者: 5988143 时间: 2010-1-7 08:33
精品作品~學習一下

作者: wzh 时间: 2010-1-7 09:05
謝謝分享，学习学习！！！

作者: yanwei82123300 时间: 2010-1-7 12:09
谢谢分享，永远支持你

作者: kfzhigen 时间: 2010-1-7 15:44
学习学习!

作者: ui 时间: 2010-1-7 16:33
精品,先支持一下

作者: t小宝 时间: 2010-1-7 16:59
谢谢红尘精益求精的精神

作者: 123654fs 时间: 2010-1-7 17:22
红尘大师谢谢分享

作者: luhao 时间: 2010-1-7 18:46
希望有源码

作者: liaoqiang234 时间: 2010-1-7 18:58
謝謝分享

作者: chaojianan 时间: 2010-1-7 21:15
支持红尘，谢谢分享。

作者: zxklzxm1983 时间: 2010-1-8 09:49

顶一下

作者: 真主 时间: 2010-1-8 14:47
先收藏，再学习

作者: huangqinyong 时间: 2010-1-8 14:54
谢谢分享

作者: zhang_z1h2t3 时间: 2010-1-8 20:38
顶一个

作者: wufeng980114 时间: 2010-1-8 21:24
好DD，收藏

作者: kisssprite 时间: 2010-1-8 22:54
顶你顶到我心痛

作者: 67613188 时间: 2010-1-10 19:58
kankan

作者: zyp 时间: 2010-1-10 20:11
学习学习

作者: wjtravis 时间: 2010-1-13 16:45
可以学习一下啊

作者: tanhong 时间: 2010-1-13 18:06
下载学习如烟的大作

作者: sxb2007 时间: 2010-1-13 21:18
謝謝分享

作者: yqi 时间: 2010-1-13 21:28
好

作者: jins504 时间: 2010-1-15 01:04
我选择我喜欢

作者: w891929 时间: 2010-1-18 22:24
好东西，希望你说的是真的，谢谢发布

作者: 67613188 时间: 2010-1-18 22:38
好东西，希望你说的是真的，

作者: xuwenning 时间: 2010-1-19 08:15
谢谢分享
学习

作者: chushangu 时间: 2010-1-22 18:36
谢谢分享

作者: lkkl66 时间: 2010-1-23 00:28
学无止境

作者: huangxiuwen 时间: 2010-1-25 00:49
学习

作者: 石三少 时间: 2010-1-25 08:39
我来看看，这个好东西一定要顶

作者: apsfxc1 时间: 2010-1-25 13:34
感谢分享

作者: 路遥 时间: 2010-1-26 02:15
loook

作者: justnullit 时间: 2010-1-27 12:47
坚决顶起来~~~~~~~~

作者: aalccot 时间: 2010-1-27 23:34
我想要学习一下的说~~~

作者: shchy200 时间: 2010-1-28 07:35
不错的东东，谢谢

作者: yanggd 时间: 2010-1-28 20:51
看看什么好东东

作者: pgwq 时间: 2010-1-30 18:00
看一下拉,谢谢!!!!!!!

作者: 鱼儿游游 时间: 2010-1-31 12:10
永远支持你

作者: sblisb 时间: 2010-1-31 16:44
好作品.谢了

作者: szyewj 时间: 2010-2-3 18:02
学习学习，顶了再顶！

作者: amocvv 时间: 2010-2-4 00:09
红尘兄出的必是精品~

作者: ZHU5120 时间: 2010-2-4 08:14
支持原创

作者: aone 时间: 2010-2-4 20:02
好东西当然要先顶后下！呵呵！

作者: 风啸啸 时间: 2010-2-14 00:53
好东西。

作者: bochin 时间: 2010-2-17 14:51
學習下

作者: ZFL68622888 时间: 2010-2-17 15:05
好东东需要支持！

作者: netzerg 时间: 2010-2-18 14:52
值得学习！

作者: caibo_T 时间: 2010-2-24 20:26
谢谢分享，永远支持

作者: lh19700925 时间: 2010-2-25 23:11
1# 红尘如烟

作者: herry2003aa 时间: 2010-2-27 19:49

作者: 石橡 时间: 2010-2-28 14:29
是吗？

作者: xryacc2 时间: 2010-2-28 18:03
have a look

作者: tonyzh 时间: 2010-3-1 16:45
支持

作者: duomu 时间: 2010-3-7 02:44
谢谢分享

作者: lqp971 时间: 2010-3-7 13:49
继续研究，信红尘者得永生

作者: xiaoyuzhi 时间: 2010-3-8 11:11
谢谢分享，学习学习

作者: chaogege 时间: 2010-3-8 18:03
1# 红尘如烟 NB

作者: benlty 时间: 2010-3-12 22:35
学习中

作者: 李寻欢 时间: 2010-3-13 17:27
看看

作者: smileyoufu 时间: 2010-3-13 23:46
看看红尘如烟的最新作品

作者: zcxly 时间: 2010-3-14 18:26
学习

作者: nidej8da 时间: 2010-3-15 12:46
gfl,;fdlp,zxx

作者: zgoodice 时间: 2010-3-17 13:33
3QQQQQQQQ

作者: xia513 时间: 2010-3-17 17:20
dddddddddddddddd

作者: zww3008 时间: 2010-3-17 23:13
红尘如烟的都是好东西。

作者: zww3008 时间: 2010-3-17 23:24
怎么打不开哪，无论先打开哪个窗体，都是弹出这样一个对话框。

[attach]41708[/attach]

作者: luhao 时间: 2010-3-17 23:53
74# zww3008

当前窗口没有绑定：数据源引起的出错

作者: zww3008 时间: 2010-3-17 23:56
请问版怎么绑定啊？将ActiveFormFilter窗体的记录源添加设置到表吗？我已经将设了还是一样啊？

作者: cangqiong 时间: 2010-3-18 09:24
学习一下!!!!!1111111111

作者: liaohk 时间: 2010-3-18 12:12
[code][/code]

作者: chenfuping 时间: 2010-3-19 15:57
谢谢分享，永远支持你

作者: shuizaihu001 时间: 2010-3-19 17:43
顶一个

作者: ygh340876 时间: 2010-3-20 22:31
好东西，分享了！！！

作者: 红尘如烟 时间: 2010-3-21 09:08

怎么打不开哪，无论先打开哪个窗体，都是弹出这样一个对话框。

41708
zww3008 发表于 2010-3-17 23:24

这个不是这么用的，它类似于一个插件工具，不能直接从数据库窗口中去打开，要从你要进行筛选的绑定窗体中去打开，或者建立一个菜单按钮去调用，请仔细看一下我在一楼的说明

作者: secowu 时间: 2010-3-23 14:11
这个非常的牛。。。。。。。。。。

作者: 小小鸟 时间: 2010-3-23 14:14
谢谢分享。学习中。。。

作者: zww3008 时间: 2010-3-23 19:19
谢谢。已经利用到我的菜单中了。是很好用。

作者: bcfu 时间: 2010-3-25 13:04
复杂

作者: vicong999 时间: 2010-3-27 11:35
学习一下下

作者: sdjnjzwbg 时间: 2010-3-31 16:45
thanks

作者: congee 时间: 2010-3-31 17:09
我要，我顶，我还要。

作者: cyvxl 时间: 2010-3-31 20:28
向红尘学习,

作者: cyvxl 时间: 2010-3-31 20:55
人生得意万千重，春回梦醒原是空。红尘佳人如烟事，云淡风轻一笑中。

作者: mrd_wxqs 时间: 2010-4-19 14:11
绝对是极品，坚决支持！

作者: grq 时间: 2010-4-27 19:55
学习一下

作者: hupingrenjia 时间: 2010-4-28 06:56
看一下总是不坏。

作者: xuchunyang 时间: 2010-4-29 12:06
好东西，下来学习一下

作者: zzyzzg 时间: 2010-4-29 13:16
此筛选器不能直接从数据库窗口中去打开，要从别的位置调用才行

作者: fcghw 时间: 2010-5-5 21:29
坚决顶

作者: lp2lp2 时间: 2010-5-6 23:00
看看

作者: ludaddy 时间: 2010-5-7 23:18
正需要

作者: 5574916 时间: 2010-5-18 20:47
学习学习，谢谢分享！~~！！

作者: totodon 时间: 2010-5-29 00:40
很好。。。我来学习，版主

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)