【源码】超强通用窗体数据筛选器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 添加了在组合框列表中显示字段值为可选的功能。

红尘如烟

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

红尘如烟

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

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

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

红尘如烟

我晕，这么简单的还是有很多人不会用，我把例子中的调用方式改一下

红尘如烟

版主，你那个超强通用窗体数据筛选器ActiveFormFilter太强悍了。如果我需要筛选子窗体，那么应该如何设置 ...
sbsfhgl 发表于 2010-8-30 11:11

Me.子窗体.SetFocus
DoCmd.OpenForm "ActiveFormFilter"

红尘如烟

根据一些朋友的要求稍微改了一下

红尘如烟

anny63 发表于 2010-10-9 15:19
红尘如烟大师，这个通用查询很强，但是有个问题：在拆分数据库后，执行查询时显示“#3010 表'UsysFilterSch ...

这个表必须必在前台，不能放到后台去