主题：按时间段筛选数据问题

例如筛选2011年2季度的订单：

Dim y As Integer = 2011 '指定年份
Dim q As Integer = 2 '指定季度
Dim dt1 As New Date(y, 3 * (q - 1) + 1, 1) '获取该季度的第一天
Dim dt2 As Date = dt1.AddMonths(3)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 < #" & dt2 & "#" 
Tables("订单").Filter = Filter

http://www.foxtable.com/webhelp/scr/2720.htm