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("申报编辑_table1").Filter = Filter