- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 的表中有日期列，在窗口设置了查询某年某月的数据，该如何写 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29739)
-- 发布时间：2013/3/12 17:00:00
-- 的表中有日期列，在窗口设置了查询某年某月的数据，该如何写
我的表中有日期列，在窗口设置了查询某年某月的数据，该如何写？。
此主题相关图片如下：按月生成报表.jpg
[此贴子已经被作者于2013-3-12 17:09:15编辑过]
-- 发布时间：2013/3/12 17:03:00
--
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
-- 发布时间：2013/3/13 14:26:00
--
狐爸：我刚开始没上图，你是不是理解错我的意思了。
-- 发布时间：2013/3/13 14:34:00
--
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
-- 发布时间：2013/3/21 11:44:00
--
"年份输入框名称" 这儿的框不可以用ComboBox吗？
-- 发布时间：2013/3/21 11:55:00
--
可以
-- 发布时间：2013/3/21 19:32:00
--
年度和月份只能输入，不能根据日期列进行选择吗？如何设置？
-- 发布时间：2013/3/22 17:18:00
--
我意思是能不直接根据日期列进行选择呢？
-- 发布时间：2013/3/22 17:47:00
--
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