改成
Dim d As Date = New Date(2017, 1, 1)
g.Filter = "报告卡录入时间 >= #" & d & "# and 报告卡录入时间 < #" & d.addMonths(1) & "#"
加好友 
发短信
Post By：2017/2/6 16:23:00 [显示全部帖子]
