主题：上个月代码该怎么写？

加载本月数据

例如加载本月的订单：

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

加载上个月呢

这样可靠一些：

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
dt1 = dt1.Addmonths(-1)
y = dt1.Year
m = Dt1.Month
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m))