以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]日期变量与时间合并(已解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83276)

--  作者:yyzlxc
--  发布时间:2016/4/5 18:19:00
--  [求助]日期变量与时间合并(已解决)
如何在代码中,将当天日期与指定时间合并为条件,请各位老师指教,谢谢!

Dim rq As Date = Date.Today()\'
Dim dr As DataRow = DataTables("扎包数据").Find("日期 = \'" & rq & "\' and 班组 = \'01\' and 批次ID = \'2016-04-05_1\' And 工位ID = \'2\' And 拔卡时间 > \'" & rq & "\' & \' 11:00:00\'")
[此贴子已经被作者于2016/4/5 22:27:25编辑过]

--  作者:大红袍
--  发布时间:2016/4/5 20:29:00
--  

Dim rq As Date = Date.Today()

rq = new date(rq.Year, rq.Month, rq.Day, 11, 0, 0)

Dim dr As DataRow = DataTables("扎包数据").Find("日期 = \'" & rq & "\' and 班组 = \'01\' and 批次ID = \'2016-04-05_1\' And 工位ID = \'2\' And 拔卡时间 > " & rq & "#")


--  作者:yyzlxc
--  发布时间:2016/4/5 22:27:00
--  
问题解决,谢谢大红袍老师!!