- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 多值字段与统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154667)
-- 发布时间：2020/9/22 15:41:00
-- 多值字段与统计
此主题相关图片如下：44.png
此主题相关图片如下：38.png
日期时间列统计后时间丢了，怎么办？
Dim dt As DataTable
Dim dtb As New DataTableBuilder("加班")
dtb.AddDef("结束时间", Gettype(Date))
dtb.AddDef("成员", Gettype(String), 20)
dtb.AddDef("加班时长", Gettype(Double))
dt = dtb.Build()
\'开始逐行累加统计
Dim lst As New Dictionary(of String ,DataRow) \'定义一个字典,用于检索每个员工在统计表中对应的行
For Each dr1 As DataRow In DataTables("加班申请").DataRows
If dr1.IsNull("成员") = False Then \'如果工号列不为空
Dim nms() As String = dr1("成员").Split(",") \'将工号列内容拆分成数组
Dim v As Double = dr1("加班时长") \'获得平均之后每个工号的生产数量
For Each nm As String In nms \'遍历参与加工此产品的每个工号
Dim dr2 As DataRow
Dim key As String = nm & "|" & dr1("结束时间") \'这里是关键,由工号和时间组成字典的关键词.
If lst.ContainsKey(key) \'如果集合中包括此工号对应的行
dr2= lst(key) \'将此行赋值给变量dr2
Else
dr2 = dt.AddNew() \'否则增加一行.
dr2("成员") = nm \'新增行的工号列设置为此工号
dr2("结束时间") = dr1("结束时间") \'设置增行的产品
lst.add(key,dr2) \'将新增行添加到字典中,以便接下来检索
End If
dr2("加班时长") = dr2("加班时长") + v
Next
End If
Next
Tables("加班").Cols("结束时间").SetDateTimeFormat(DateTimeFormatEnum.DateTime)
-- 发布时间：2020/9/22 15:59:00
--
Dim dt As DataTable
Dim dtb As New DataTableBuilder("加班")
dtb.AddDef("结束时间", Gettype(Date))
dtb.AddDef("成员", Gettype(String), 20)
dtb.AddDef("加班时长", Gettype(Double))
dt = dtb.Build()
dataTables("加班").dataCols("结束时间").SetDateTimeFormat(DateTimeFormatEnum.DateTime)
先设置格式再写数据
-- 发布时间：2020/9/22 16:07:00
--
好了，谢谢。