以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  条件加载本月  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135674)
--  作者：manyifuwu
--  发布时间：2019/5/31 16:49:00
--  条件加载本月

我想加载条件多一个判断： 业务列  等于    网络

例如加载本月的订单：

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()


谢谢！
--  作者：manyifuwu
--  发布时间：2019/5/31 17:49:00
--  
加载本月，再添加条件：业务类 等于   网络
麻烦老师指导一哈。
--  作者：有点甜
--  发布时间：2019/5/31 18:04:00
--  

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()