Filter1 = filter & " and 日期 >= #" & dt3 & "# And 日期 <= #" & dt4 & "#"
改成
Filter1 = filter & " and 日期 >= #" & dt3 & "# And 日期 < #" & dt3.AddMonths(1) & "#"
加好友 
发短信
Post By：2016/12/11 10:58:00 [只看该作者]
