【源码】超强通用窗体数据筛选器ActiveFormFilter(最后更新日期2010-8-30)

红尘如烟

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

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

游客，如果您要查看本帖隐藏内容请回复

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

fnsmydyang

这么好的作品，怎么没有人顶呢？我来顶一下（学习一下下）

c101

謝謝分享

iamee

坚决顶起来~~~~~~~~

jackysu78

谢谢分享，永远支持你

红尘如烟

修正了字段值列表中非文本类型字段排序不正确的问题

goto2008

想学习哦

5988143

精品作品~學習一下

wzh

謝謝分享，学习学习！！！

yanwei82123300

谢谢分享，永远支持你