以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  月份筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75426)
--  作者：lfxxdt
--  发布时间：2015/10/8 12:14: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

 

日期是年月日和时间格式的，以上代码运行后最后一天不能筛选出来，应该如何修改代码
--  作者：新福星
--  发布时间：2015/10/8 12:24:00
--  
订单的日期列你定义的是datetime吧有时间。dt2加上23:59:59
--  作者：lfxxdt
--  发布时间：2015/10/8 12:26:00
--  
dt2加上23:59:59       这个如保写
--  作者：大红袍
--  发布时间：2015/10/8 14:12:00
--  
Dim y As Integer = 2011 \'指定年份
Dim m As Integer = 6 \'指定月份
Dim dt1 As New Date(y, m, 1)
Dim dt2 As Date = dt1.AddMonths(1)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 < #" & dt2 & "#"
Tables("订单").Filter = Filter