Foxtable(狐表)用户栏目专家坐堂 → 多值字段与统计


  共有4047人关注过本帖树形打印复制链接

主题:多值字段与统计

帅哥哟,离线,有人找我吗?
石四
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
多值字段与统计  发帖心情 Post By: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)



 回到顶部
帅哥哟,离线,有人找我吗?
石四
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2020/9/22 16:07:00 [显示全部帖子]

好了,谢谢。

 回到顶部