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 & "#")
加好友 
发短信
Post By：2016/4/5 20:29:00 [显示全部帖子]
