主题：按照日期时间的格式每天自动变动

直接说你要做的功能吧。你要把什么数据显示出来？或者，你要把什么数据存放起来？

你的逻辑是什么？

 

就你给的数据，如

 

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              

 

根据什么逻辑，获取什么列的值来计算，最后得到的结果是什么？

 

就你给的例子，截图说明你要做什么。根据什么计算和显示。

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

Dim drs = dt.Select("开机人员 = '" & e.form.controls("TextBox1").Text & "' and 开始时间 >= #" & Date.Today & "# and 开始时间 < #" & Date.Today.adddays(1) & "#")

 

新建的临时表。

 

http://www.foxtable.com/webhelp/scr/0679.htm

 

你给表格换一个名字呢？

 

如果你要在窗口里面显示，参考 http://www.foxtable.com/webhelp/scr/1909.htm

 

你基础不行啊，你都没理解代码。能不能先停下来学一下基础？

Dim dt As DataTable = DataTables("每日排产")
Dim dtb As New DataTableBuilder("abc")
dtb.AddDef("开机人员", Gettype(String), 32)
Dim drs = dt.Select("开始时间 >= #" & 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
e.form.controls("table1").Table.datasource = dtb.BuildDataSource
Dim t As Table = e.form.controls("table1").Table
For Each dr As DataRow In drs
    Dim nr = t.addnew
    nr("开机人员") = dr("开机人员")
    nr("日期" & dr("_Identify")) = 1
Next

Dim dt As DataTable = DataTables("每日排产")
Dim dtb As New DataTableBuilder("abc")
dtb.AddDef("开机人员", Gettype(String), 32)
Dim drs = dt.Select("开始时间 >= #" & 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
e.form.controls("table1").Table.datasource = dtb.BuildDataSource
Dim t As Table = e.form.controls("table1").Table
For Each dr As DataRow In drs
    Dim nr = t.DataTable.Find("开机人员 = '" & dr("开机人员") & "'")
    If nr Is Nothing Then nr = t.DataTable.addnew
    nr("开机人员") = dr("开机人员")
    nr("日期" & dr("_Identify")) = 1
Next

Dim dt As DataTable = DataTables("每日排产")
Dim dtb As New DataTableBuilder("abc")
dtb.AddDef("开机人员", Gettype(String), 32)
Dim drs = dt.Select("开始时间 >= #" & 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
e.form.controls("table1").Table.datasource = dtb.BuildDataSource
Dim t As Table = e.form.controls("table1").Table
For Each dr As DataRow In drs
    Dim nr = t.DataTable.Find("开机人员 = '" & dr("开机人员") & "'")
    If nr Is Nothing Then nr = t.DataTable.addnew
    nr("开机人员") = dr("开机人员")
    nr("日期" & dr("_Identify")) = 1
Next