我想加载条件多一个判断: 业务列 等于 网络
例如加载本月的订单:
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()
这个只能加载当日业务列等于 网络的,我想加载本月,业务类等于网络的数据。
DataTables("派工_Table1").LoadFilter = "日期 = '" & Date.Today & "'And[业务] = '网络'"
DataTables("派工_Table1").Load()
谢谢!