主题：求助：如何一键实现帅选本月数据

LZ，请在相应的代码中使用 Tables("订单").Filter = Filter 进行筛选，筛选日期的一般思路是这样：定义要筛选时段的第一天和最后一天，筛选的条件就是：第一天≤筛选日期≤最后一天。

例如筛选2011年6月份的订单：
Dim y As Integer = 2011 '指定年份
Dim m As Integer = 6 '指定月份
Dim dt1 As New Date(y, m, 1)  '获得该月第一天
Dim dt2 As New Date(y, m, Date.DaysInMonth(2011,6)) '获取该月的最后一天
Dim Filter As String     '转化为字符串
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"   '筛选条件为第一天≤筛选日期≤最后一天
Tables("订单").Filter = Filter