主题：如何用菜单筛选不同年度同一月份的数据？

不同年的同月：

Dim dt As Date =  Tables("订单").current("日期")
Dim m As Integer = dt.month
Tables("订单").Filter = " SubString(Convert([日期],'System.String'),6,IIF(SubString(Convert([日期],'System.String'),7,1) In ('-','/'),1,2)) = '" & m & "'"

参考：

http://www.foxtable.com/help/topics/1285.htm

CurrentTable当前表。

With CurrentTable

   Dim c As  Col 

    c =  .Cols(.ColSel) ' 返回当前列

End with