Dim y As Integer = Date.Today.Year Dim m As Integer = Date.Today.Month Dim dt1 As New Date(y, m, 1) Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天 Dim Filter As String Filter = "开piao日期 >= #" & dt1 & "# And 开piao日期 <= #" & dt2 & "#" DataTables("统计_Table1").LoadFilter = Filter '设置加载条件 DataTables("统计_Table1").Load() '