主题：条件加载本月

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 Date = dt1.AddMonths(1)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 < #" & dt2 & "#"

DataTables("派工_Table1").LoadFilter = filter & " And [业务] =  '网络'"
DataTables("派工_Table1").Load()