| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 多条件加载数据的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59375) |
| -- 作者：huangczm -- 发布时间：2014/11/3 10:49:00 -- 多条件加载数据的问题 想要加载一定日期内生产状态不是“生产中”的数据，可下代码只能加载时间内数据，却不能剔除出生产状态不是“生产中”的数据，是哪里出错呢？ Dim d1 As Date = e.Form.Controls("datetimepicker1").value Dim d2 As Date = e.Form.Controls("datetimepicker2").value If d1 = "0:00:00" Then DataTables("新建订单").LoadFilter = "[生产日期] >= \' " & d2 & " \' " End If If d2 = "0:00:00" Then DataTables("新建订单").LoadFilter = "[生产日期] >= \' " & d1 & " \' " End If If d1 <> "0:00:00" And d2 <> "0:00:00" d2 = d2.AddDays(1) DataTables("新建订单").LoadFilter = "[生产日期] >= \' " & d1 & " \' And [生产日期] <= \' " & d2 & " \' " And " [生产状态] <> \'生产中\' " DataTables("新建订单").Load End If |
| -- 作者：Bin -- 发布时间：2014/11/3 10:52:00 -- DataTables("新建订单").LoadFilter = "([生产日期] >= \' " & d1 & " \' And [生产日期] <= \' " & d2 & " \') " And " [生产状态] <> \'生产中\' " |
| -- 作者：有点甜 -- 发布时间：2014/11/3 10:52:00 -- Dim d1 As string = e.Form.Controls("datetimepicker1").Text
Dim d2 As string = e.Form.Controls("datetimepicker2").Text
If d1 = "0:00:00" Then
DataTables("新建订单").LoadFilter = "[生产日期] >= \'" & d2 & "\' "
End If
If d2 = "0:00:00" Then
DataTables("新建订单").LoadFilter = "[生产日期] >= \'" & d1 & "\' "
End If
If d1 <> "0:00:00" And d2 <> "0:00:00"
d2 = d2.AddDays(1)
DataTables("新建订单").LoadFilter = "[生产日期] >= \'" & d1 & "\' And [生产日期] <= \'" & d2 & "\' " And " [生产状态] <> \'生产中\' "
DataTables("新建订单").Load
End If
|
| -- 作者：有点甜 -- 发布时间：2014/11/3 10:53:00 -- 你判断"0:00:00"是什么意图啊 |
| -- 作者：huangczm -- 发布时间：2014/11/3 11:02:00 -- 谢谢，已经解决了！00是想判断只选择一个时间的时候，另一个未选择的时间也默认成选择的时间。不过我知道这里还要完善。 |