【源碼】超強通用窗體數(shù)據(jù)篩選器ActiveFormFilter(最后更新日期2010-8-30)

紅塵如煙

1.用于在綁定了數(shù)據(jù)源的窗體（或子窗體）中進行數(shù)據(jù)篩選，完全可以作為通用查詢功能來使用。
2,在需要進行數(shù)據(jù)篩選查詢的窗體中創(chuàng)建一個按鈕，然后通過該按鈕來打開ActiveFormFilter窗體，示例代碼如下：
    Private Sub 篩選按鈕_Click()
        'Me.子窗體.SetFocus   '如果要對子窗體的數(shù)據(jù)進行篩選才用這一句
        DoCmd.OpenForm "ActiveFormFilter"
    End Sub
3.子窗體優(yōu)先于窗體，但如果子窗體未綁定記錄集，則即使將焦點移到子窗體再打開篩選器，也會是對窗體數(shù)據(jù)進行篩選。
4.能夠自動識別各種數(shù)據(jù)類型，動態(tài)顯示各個字段的所有值（排除重復(fù)值和空值，可選功能），只需用鼠標(biāo)點擊即可完成篩選查詢，而且可以對條件代碼進行手動編輯，進行更加復(fù)雜的篩選查詢。
5.可以對篩選方案進行保存、添加、刪除操作，只需在已保存的方案列表中雙擊方案名稱，或者選中方案名稱后點擊【篩選】按鈕即可應(yīng)用已保存的篩選方案。
6.關(guān)于篩選方案的編輯，篩選方案列表處于選中狀態(tài)時，點【保存】按鈕會保存并覆蓋到已有方案記錄中，否則保存為新記錄。篩選方案必須點擊【保存】按鈕才能保存，臨時篩選只需添加條件后點擊【應(yīng)用篩選】按鈕即可。要清除當(dāng)前已輸入的條件，只需點擊方案列表下邊的【新建】按鈕。
7.多條件時需要點【添加】按鈕將條件加入到條件框中，如果只有一個條件，則可以直接點【應(yīng)用篩選】按鈕進行篩選。
8.篩選方案數(shù)據(jù)保存在表USysFilterSchemes中，這個表在打開篩選器時如果不存在會自動創(chuàng)建，所以大家在使用時只需要把窗體AcitveFormFilter導(dǎo)入你自己開發(fā)的系統(tǒng)中即可。

本人技術(shù)水平有限，遺漏之處難免，有什么bug或改進建議歡迎大家向我提出……

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

更新記錄：
2010-1-8   修正了字段值列表中非文本類型字段排序不正確的問題。
2010-8-30 添加了在組合框列表中顯示字段值為可選的功能。

fnsmydyang

這么好的作品，怎么沒有人頂呢？我來頂一下（學(xué)習(xí)一下下）

c101

謝謝分享

iamee

堅決頂起來~~~~~~~~

jackysu78

謝謝分享，永遠支持你

紅塵如煙

修正了字段值列表中非文本類型字段排序不正確的問題

goto2008

想學(xué)習(xí)哦

5988143

精品作品~學(xué)習(xí)一下

wzh

謝謝分享，學(xué)習(xí)學(xué)習(xí)�。。�

yanwei82123300

謝謝分享，永遠支持你