感谢论坛高手指点，自己做了个日期筛选

功能并不指定特定的表或特定的日期，由自己选择当前表的日期列，即可自行筛选。

特分享给大家

‘开始筛选

Dim StartDate As Date

Dim EndDate As Date

Dim t As Table = CurrentTable

Dim c As String = t.Cols(t.ColSel).Name

With RibbonTabs("shangwu")("日期筛选")

    StartDate = .Items("StartDate").Value

    EndDate = .Items("EndDate").Value

End With

t.Filter =c & " >= #" & StartDate & "# And " & c & " <= #" & EndDate & "#"

’取消筛选

Dim t As Table = CurrentTable

t.Filter = ""

此主题相关图片如下：无标题1.jpg