Dim y As Integer = Date.Today.Year Dim m As Integer = Date.Today.Month Dim dt1 As NewDate(y, m, 1) Dim dt2 As NewDate(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天 Dim Filter As String Filter = "日期 >= #"&dt1&"# And 日期 <= #"&dt2&"#" Tables("订单").Filter = Filter
加好友 
发短信
Post By：2014/12/4 15:01:00 [显示全部帖子]
