Foxtable(狐表)用户栏目专家坐堂 → 求包含多值字段的分组统计


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

主题:求包含多值字段的分组统计

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


加好友 发短信
等级:幼狐 帖子:85 积分:777 威望:0 精华:0 注册:2015/8/31 11:01:00
求包含多值字段的分组统计  发帖心情 Post By:2018/4/23 17:37:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table

对人员出行补助数据进行统计,但有多值字段包含出差人员,帮助中没有相关的例子,求指教

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/23 18:42:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:85 积分:777 威望:0 精华:0 注册:2015/8/31 11:01:00
  发帖心情 Post By:2018/4/24 9:16:00 [只看该作者]

如果不显示临时表,直接绑定到窗口的表中,这个代码应如何修改?下面加粗的代码有错,提示不是该表成员
Dim dt As DataTable
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("XM", Gettype(String), 16)
dtb.AddDef("BZJE", Gettype(Double))
dt = dtb.Build()
Tables("统计_Table1").DataSource = dtb.BuildDataSource()
'开始逐行累加统计
Dim lst As New Dictionary(of String ,DataRow) '定义一个字典,用于检索每个员工在统计表中对应的行
For Each dr1 As DataRow In DataTables("XXDJ").DataRows
    If dr1.IsNull("XM") = False Then '如果工号列不为空
        Dim nms() As String = (dr1("XM") & "," & dr1("TXRY")).Split(",") '将工号列内容拆分成数组 
        Dim v As Double = dr1("BZJE") '获得平均之后每个工号的生产数量
        For Each nm As String In nms '遍历参与加工此产品的每个工号
            Dim dr2 As DataRow 
            If lst.ContainsKey(nm) '如果集合中包括此工号对应的行
                dr2= lst(nm) '将此行赋值给变量dr2
            Else
                dr2 = dt.AddNew() '否则增加一行.
                dr2("XM") = nm '新增行的工号列设置为此工号
                lst.add(nm,dr2) '将新增行添加到字典中,以便接下来检索
            End If
            dr2("BZJE") = dr2("BZJE") + v '加上平均后的产量
        Next
    End If
Next

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/24 10:00:00 [只看该作者]

 

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("XM", Gettype(String), 16)
dtb.AddDef("BZJE", Gettype(Double))
Tables("统计_Table1").DataSource = dtb.BuildDataSource()

 


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


加好友 发短信
等级:幼狐 帖子:85 积分:777 威望:0 精华:0 注册:2015/8/31 11:01:00
  发帖心情 Post By:2018/4/24 10:49:00 [只看该作者]

上面例子的代码中,这个NM变量中有空值乍办?会导致新增行有空值,如何解决?
dr2("XM") = nm '新增行的工号列设置为此工号

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/24 12:05:00 [只看该作者]

加上判断,如

 

If nm = Nothing then continue for

 

或者

 

If nm > "" then

    '原来代码

End If


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


加好友 发短信
等级:幼狐 帖子:85 积分:777 威望:0 精华:0 注册:2015/8/31 11:01:00
  发帖心情 Post By:2018/5/3 15:06:00 [只看该作者]

这个不行呀,只是显示了空表,而“统计”中的数据没有反映到窗口TABLEL1中,变量DT中的数据要加载到窗口表中
Dim dt As DataTable
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("XM", Gettype(String), 16)
dtb.AddDef("BZJE", Gettype(Double))
dt = dtb.Build()
Tables("统计_Table1").DataSource = dtb.BuildDataSource()
'开始逐行累加统计
Dim lst As New Dictionary(of String ,DataRow) '定义一个字典,用于检索每个员工在统计表中对应的行
For Each dr1 As DataRow In DataTables("XXDJ").DataRows
    If dr1.IsNull("XM") = False Then '如果工号列不为空
        Dim nms() As String = (dr1("XM") & "," & dr1("TXRY")).Split(",") '将工号列内容拆分成数组 
        Dim v As Double = dr1("BZJE") '获得平均之后每个工号的生产数量
        For Each nm As String In nms '遍历参与加工此产品的每个工号
            Dim dr2 As DataRow 
            If lst.ContainsKey(nm) '如果集合中包括此工号对应的行
                dr2= lst(nm) '将此行赋值给变量dr2
            Else
                dr2 = dt.AddNew() '否则增加一行.
                dr2("XM") = nm '新增行的工号列设置为此工号
                lst.add(nm,dr2) '将新增行添加到字典中,以便接下来检索
            End If
            dr2("BZJE") = dr2("BZJE") + v '加上平均后的产量
        Next
    End If
Next
[此贴子已经被作者于2018/5/3 15:07:49编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/3 15:19:00 [只看该作者]

Dim dt As DataTable
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("XM", Gettype(String), 16)
dtb.AddDef("BZJE", Gettype(Double))
Tables("统计_Table1").DataSource = dtb.BuildDataSource()
dt = Tables("统计_Table1").DataTable
'开始逐行累加统计
Dim lst As New Dictionary(of String ,DataRow) '定义一个字典,用于检索每个员工在统计表中对应的行
For Each dr1 As DataRow In DataTables("XXDJ").DataRows
    If dr1.IsNull("XM") = False Then '如果工号列不为空
        Dim nms() As String = (dr1("XM") & "," & dr1("TXRY")).Split(",") '将工号列内容拆分成数组
        Dim v As Double = dr1("BZJE") '获得平均之后每个工号的生产数量
        For Each nm As String In nms '遍历参与加工此产品的每个工号
            Dim dr2 As DataRow
            If lst.ContainsKey(nm) '如果集合中包括此工号对应的行
                dr2= lst(nm) '将此行赋值给变量dr2
            Else
                dr2 = dt.AddNew() '否则增加一行.
                dr2("XM") = nm '新增行的工号列设置为此工号
                lst.add(nm,dr2) '将新增行添加到字典中,以便接下来检索
            End If
            dr2("BZJE") = dr2("BZJE") + v '加上平均后的产量
        Next
    End If
Next

 回到顶部