主题：的表中有日期列，在窗口设置了查询某年某月的数据，该如何写

我的表中有日期列，在窗口设置了查询某年某月的数据，该如何写？。

 

此主题相关图片如下：按月生成报表.jpg

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

 

狐爸：我刚开始没上图，你是不是理解错我的意思了。

 

Dim y As Integer = e.Form.Controls("年份输入框名称").Value
Dim m As Integer = e.Form.Controls("月份输入框名称").Value
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

"年份输入框名称"   这儿的框不可以用ComboBox吗？

可以

年度和月份只能输入，不能根据日期列进行选择吗？如何设置？

 

我意思是能不直接根据日期列进行选择呢？

 

Dim dt As Date = 你输入的日期

Dim y As Integer = dt.Year
Dim m As Integer = dt.Month
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