Foxtable(狐表)用户栏目专家坐堂 → 统计表的问题。


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

主题:统计表的问题。

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


加好友 发短信
等级:二尾狐 帖子:500 积分:5391 威望:0 精华:0 注册:2009/2/5 13:09:00
统计表的问题。  发帖心情 Post By:2021/4/8 17:03:00 [只看该作者]

派工表  新增了“路程补助”列,怎改可以在统计表里按截至日期,统计  路程补助的合计金额呢?谢谢!
Dim dt As DataTable
Dim dtb As New  DataTableBuilder("计分统计表")
dtb.AddDef("工号", Gettype(String), 16)
dtb.AddDef("计分金额", Gettype(Double))
dt = dtb.Build()
'开始逐行累加统计
Dim lst As  New  Dictionary(of String ,DataRow) '定义一个字典,用于检索每个工号在计分统计表中对应的行
For Each dr1 As DataRow In DataTables("派工_Table1").Select("截止日期>='" & sd & "' and 截止日期 <'" & ed.AddDays(1) & "' and 交单='已交单' and 工号 is not null")
    If dr1.IsNull("工号") = False Then '如果工号列不为空
        Dim nms() As String = dr1("工号").Split(",") '将工号列内容拆分成数组
        Dim v As Double = dr1("计分金额") / nms.Length '获得平均之后每个工号的生产计分金额
        For Each nm As String In nms  '遍历参与加工此产品的每个工号
            Dim  dr2 As  DataRow
            If  lst.ContainsKey(nm) '如果集合中包括此工号对应的行
                dr2=  lst(nm) '将此行赋值给变量dr2
            Else
                dr2 = dt.AddNew() '否则增加一行.
                dr2("工号") = nm  '新增行的工号列设置为此工号
                lst.add(nm,dr2) '将新增行添加到字典中,以便接下来检索
            End If
            dr2("计分金额") = dr2("计分金额") + v  '加上平均后的产量
        Next
    End If
Next
[此贴子已经被作者于2021/4/8 17:02:55编辑过]

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/8 17:09:00 [只看该作者]

没看懂,截图说明一下

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


加好友 发短信
等级:二尾狐 帖子:500 积分:5391 威望:0 精华:0 注册:2009/2/5 13:09:00
  发帖心情 Post By:2021/4/8 17:34:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20210408173351.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/8 17:38:00 [只看该作者]

路程和工号是什么关系,怎么关联起来?

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


加好友 发短信
等级:二尾狐 帖子:500 积分:5391 威望:0 精华:0 注册:2009/2/5 13:09:00
  发帖心情 Post By:2021/4/8 17:44:00 [只看该作者]

例如:工号:2021-04-08   工号是张三,有路程费。20元。   2021-04-09   工号是张三,有路程费。10元。统计表统计这个时段,张三路程费合计就是30元。

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/8 20:05:00 [只看该作者]

Dim dt As DataTable
Dim dtb As New  DataTableBuilder("计分统计表")
dtb.AddDef("工号", Gettype(String), 16)
dtb.AddDef("计分金额", Gettype(Double))
dtb.AddDef("路程费合计", Gettype(Double))
dt = dtb.Build()
……
dr2("计分金额") = dr2("计分金额") + v  '加上平均后的产量
dr2("路程费合计") = DataTables("派工_Table1").compute("sum(路程)","截止日期>='" & sd & "' and 截止日期 <'" & ed.AddDays(1) & "' and 交单='已交单' and 工号='" & nm & "'")
……

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


加好友 发短信
等级:二尾狐 帖子:500 积分:5391 威望:0 精华:0 注册:2009/2/5 13:09:00
  发帖心情 Post By:2021/4/25 15:53:00 [只看该作者]

工号列,只有张三,可以统计,但:工号列如果包含,‘’张三,李四。两个人路程费用合计,就不能统计了。

图片点击可在新窗口打开查看此主题相关图片如下:mlrm)dn`ri_9ub0x2{m.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:q)f$j$@@@o7`pgp7dhsyly.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/4/25 16:06:45编辑过]

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/25 16:06:00 [只看该作者]

Dim dt As DataTable
Dim dtb As New  DataTableBuilder("计分统计表")
dtb.AddDef("工号", Gettype(String), 16)
dtb.AddDef("计分金额", Gettype(Double))
dtb.AddDef("路程", Gettype(Double))
dt = dtb.Build()
'开始逐行累加统计
Dim lst As  New  Dictionary(of String ,DataRow) '定义一个字典,用于检索每个工号在计分统计表中对应的行
For Each dr1 As DataRow In DataTables("派工_Table1").Select("截止日期>='" & sd & "' and 截止日期 <'" & ed.AddDays(1) & "' and 交单='已交单' and 工号 is not null")
    If dr1.IsNull("工号") = False Then '如果工号列不为空
        Dim nms() As String = dr1("工号").Split(",") '将工号列内容拆分成数组
        Dim v As Double = dr1("计分金额") / nms.Length '获得平均之后每个工号的生产计分金额
        For Each nm As String In nms  '遍历参与加工此产品的每个工号
            Dim  dr2 As  DataRow
            If  lst.ContainsKey(nm) '如果集合中包括此工号对应的行
                dr2=  lst(nm) '将此行赋值给变量dr2
            Else
                dr2 = dt.AddNew() '否则增加一行.
                dr2("工号") = nm  '新增行的工号列设置为此工号
                lst.add(nm,dr2) '将新增行添加到字典中,以便接下来检索
            End If
            dr2("计分金额") = dr2("计分金额") + v  '加上平均后的产量
            dr2("路程") = dr2("路程") + dr1("路程") 
        Next
    End If
Next

 回到顶部