以文本方式查看主题

-  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=131255)

--  作者:304376480
--  发布时间:2019/2/21 12:15: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(y,m)) \'获取该月的最后一天
Dim
Filter As String
Filter
= "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Tables
("订单").Filter = Filter
--  作者:有点蓝
--  发布时间:2019/2/21 13:34:00
--  
没有。除非您增加辅助列,专门记录年份和月份