- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于Time类型日期时间比较大小的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148870)
-- 发布时间：2020/4/17 10:43:00
-- 关于Time类型日期时间比较大小的问题
你好，关于时间段是否可以用如下表达式？测试中好象订单时间（订单时间列属于time类型）这个筛选条件好象无效。主要希望可以实现对本次订单和前后的订单进行时间上的限制。前后时间间隔不超过60分钟。
Dim dr1 As DataRow
dr1 = DataTables("订单明细表").find( "订单日期 = \'" & r("订单日期") & "\' and 订单时间 <= \'" & r("订单时间") & "\'","订单时间 desc")
If dr1 IsNot Nothing Then
Dim d3 As Date = dr1("订单时间")
Dim d4 As Date = r("订单时间")
Dim t1 As TimeSpan = d4-d3
If dr1("交通地址_城市") = r("交通地址_城市") And dr1("交通地址_地铁站") = r("交通地址_地铁站") Then
If dr1("价格收款_单位") = "1C" Or dr1("价格收款_单位") = "1H" Or dr1("价格收款_单位") = "1H1C" Then
If t1.TotalMinutes < 60 Then
Dim Result1 As DialogResult
Result1 = MessageBox.Show("订单时间之前有其它订单,时间间隔不足60分钟,请问是否需要返回修改?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If Result1 = DialogResult.Yes Then
Return
Else
r.Reject()
e.Form.close()
End If
End If
End If
End If
End If
-- 发布时间：2020/4/17 10:48:00
--
msgbox(r("订单日期")) 显示什么？
"订单明细表"的订单日期是什么样的数据？
-- 发布时间：2020/4/17 11:21:00
-- 回复：（有点蓝）msgbox(r("订单日期")) 显示什么...
订单日期是date型日期时间列
-- 发布时间：2020/4/17 11:23:00
-- 回复：（有点蓝）msgbox(r("订单日期")) 显示什么...
订单日期显示年月日，比如 2020-04-17，订单时间显示时分，比如17:30
-- 发布时间：2020/4/17 11:42:00
--
msgbox(r("订单时间")) 显示什么？截图看看
"订单明细表"随便找一行，同样截图看看：
msgbox(tables("订单明细表").current("订单时间"))
-- 发布时间：2020/4/17 11:48:00
-- 回复：（有点蓝）msgbox(r("订单时间")) 显示什么...
此主题相关图片如下：万能五笔截图_20200417114555.png
-- 发布时间：2020/4/17 11:49:00
-- 回复：（有点蓝）msgbox(r("订单时间")) 显示什么...
此主题相关图片如下：万能五笔截图_20200417114658.png
-- 发布时间：2020/4/17 11:58:00
--
如果都是时间型不可能有问题
Dim dr1 As DataRow
msgbox("订单日期 = \'" & r("订单日期") & "\' and 订单时间 <= \'" & r("订单时间") & "\'")
dr1 = DataTables("订单明细表").find( "订单日期 = \'" & r("订单日期") & "\' and 订单时间 <= \'" & r("订单时间") & "\'","订单时间 desc")
If dr1 IsNot Nothing Then
msgbox(1)能不能弹出
Dim d3 As Date = dr1("订单时间")
Dim d4 As Date = r("订单时间")
-- 发布时间：2020/4/17 12:36:00
-- 回复：（有点蓝）如果都是时间型不可能有问题Dim dr1 ...
此主题相关图片如下：万能五笔截图_20200417123506.png
-- 发布时间：2020/4/17 13:44:00
--
订单时间是日期型还是字符型？
Dim dr1 As DataRow msgbox("订单日期 = \'" & r("订单日期") & "\' and 订单时间 <= \'" & r("订单时间") & "\'") dr1 = DataTables("订单明细表").find( "订单日期 = \'" & r("订单日期") & "\' and 订单时间 <= \'" & r("订单时间") & "\'","订单时间 desc") If dr1 IsNot Nothing Then msgbox(1)能不能弹出 Dim d3 As Date = dr1("订单时间") Dim d4 As Date = r("订单时间") |