其实就是说法,求出指定月份的第一天和最后一天,然后根据这个合成条件,你看看:http://www.foxtable.com/help/topics/1424.htm
Dim FirstDay As Date = New Date(2008,2,1) '第一天Dim LastDay As Date = New Date(2008,2,Date.DaysInMonth(2008,2)) '最后一天Tables("xxx").Filter = "日期 >= #" & FirstDate & "# And 日期 <= #" & LastDay &" #"