以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按照日期时间的格式每天自动变动  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121960)
--  作者：有点蓝
--  发布时间：2018/7/16 15:46:00
--  
详细说明一下，没看懂
--  作者：有点甜
--  发布时间：2018/7/16 17:35:00
--  
直接说你要做的功能吧。你要把什么数据显示出来？或者，你要把什么数据存放起来？
--  作者：有点蓝
--  发布时间：2018/7/16 23:06:00
--  
请上传实例
--  作者：有点甜
--  发布时间：2018/7/17 9:10:00
--  

你的逻辑是什么？

 

就你给的数据，如

 

2018-07-14 00:00:00 白班 李园园 FA60 010111 L缸体 ZK-A-38 OP110 加工前后端面钻孔 30 2018-07-14 08:30:00 2018-07-14 17:30:00 540 2018-07-25 00:00:00 2018-07-26 00:00:00              
2018-07-14 00:00:00 白班 李园园 FA60 010111 L缸体 ZK-A-07 OP100 加工四周面斜孔 27 2018-07-14 08:30:00 2018-07-14 17:30:00 540 2018-07-27 00:00:00 2018-07-28 00:00:00              

 

根据什么逻辑，获取什么列的值来计算，最后得到的结果是什么？
--  作者：有点甜
--  发布时间：2018/7/17 10:43:00
--  
以下是引用nuoyan88在2018/7/17 10:06:00的发言：
我给的数量是每日的排产明细，我需要根据这些明细计算出这些人这个时间段在做什么？

 

就你给的例子，截图说明你要做什么。根据什么计算和显示。
--  作者：有点甜
--  发布时间：2018/7/17 13:02:00
--  
Dim dt As DataTable = DataTables("每日排产")
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("开机人员", Gettype(String), 32)
Dim drs = dt.Select("开机人员 = \'陈明艳\' and 开始时间 >= #" & Date.Today & "# and 开始时间 < #" & Date.Today.adddays(1) & "#")
For Each dr As DataRow In drs
    Dim d1 As Date = dr("开始时间")
    Dim d2 As Date = dr("结束时间")
    dtb.AddDef("日期" & dr("_Identify"), Gettype(String), 32, "", Format(d1, "HH:mm") & "-" & format(d2, "HH:mm"))
Next
dtb.build
Dim t As Table = Tables("统计")
For Each dr As DataRow In drs
    Dim nr = t.addnew
    nr("开机人员") = dr("开机人员")
    nr("日期" & dr("_Identify")) = 1
Next
--  作者：有点蓝
--  发布时间：2018/7/17 16:21:00
--  
"开机人员 = \'" & user.name & "\'"

其它上传实例测试 
--  作者：有点甜
--  发布时间：2018/7/17 19:12:00
--  
Dim drs = dt.Select("开机人员 = \'" & e.form.controls("TextBox1").Text & "\' and 开始时间 >= #" & Date.Today & "# and 开始时间 < #" & Date.Today.adddays(1) & "#")
--  作者：有点蓝
--  发布时间：2018/7/17 20:25:00
--  
Dim drs = dt.Select("开机人员 = \'" & e.form.controls("统计").Table.current("开机人员") & "\' and 开始时间 >= #" & Date.Today & "# and 开始时间 < #" & Date.Today.adddays(1) & "#") 
--  作者：有点蓝
--  发布时间：2018/7/17 22:02:00
--  
唉！

Dim dt As DataTable = DataTables("每日排产")
Dim dtb As New DataTableBuilder("每日排产")
dtb.AddDef("开机人员", Gettype(String), 32)
Dim t As Table = e.form.controls("统计").Table
If t.Current Is Nothing Then Return
Dim drs = dt.Select("开机人员 = \'" & t.Current("开机人员") & "\' and 开始时间 >= #" & Date.Today & "# and 开始时间 < #" & Date.Today.adddays(1) & "#") 
For Each dr As DataRow In drs