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&"#" DataTables("订单").LoadFilter = Filter DataTables("订单").Load()