Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分组统计合计问题


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

主题：分组统计合计问题
帅哥哟，离线，有人找我吗？
HJG_HB950207
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：394 积分：6003 威望：0 精华：0 注册：2015/2/17 10:18:00 		分组统计合计问题  发帖心情 Post By：2015/6/29 17:55:00 [只看该作者]

表A : 姓名，性别（男，女），政治面貌（党员，非党员），部门（分为A,B,C)
建表B: 类别，人数，A,B,C

通过表A,用Dim ss() As String = {"性别","政治面貌"}等代码已形成表B如下：

                           类别    人数   A部门    B部门   C部门
                           
                             男
                             女
                        
                             党员
                           非党员
           
                           ？合计
            
                 不知道如下在表加上合计栏，并计入合计数？由于此表上面是多重分组，不可按列直接累加。
                谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/29 18:08:00 [只看该作者]

上传具体例子，说明具体的计算规则。

 回到顶部
帅哥哟，离线，有人找我吗？
HJG_HB950207
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：394 积分：6003 威望：0 精华：0 注册：2015/2/17 10:18:00 		  发帖心情 Post By：2015/6/29 18:33:00 [只看该作者]

请教在表B中增加合计行。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table
 回到顶部
帅哥哟，离线，有人找我吗？
HJG_HB950207
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：394 积分：6003 威望：0 精华：0 注册：2015/2/17 10:18:00 		  发帖心情 Post By：2015/6/29 18:35:00 [只看该作者]

在窗口1中修改代码，谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/6/29 18:41:00 [只看该作者]

Dim dt As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
dt2.DataRows.Clear
Dim ss() As String = {"政治面貌","性别"}
For Each lb As String In ss
    Dim dr As DataRow= dt2.AddNew
    dr("类别")=" " & lb
    Dim sum() As Double = {0,0,0,0,0}
    For Each s As String In dt.GetValues(lb,lb & " is not null")
        dr = dt2.AddNew
        dr("类别")="    "&s
        dr("人数")=dt.Compute("count(姓名)", lb & "='" & s & "'")
        dr("综合办")=dt.Compute("count(姓名)", lb & "='" & s & "' and 部门='综合办'")
        dr("销售部")=dt.Compute("count(姓名)", lb & "='" & s & "' and 部门='销售部'")
        dr("业务部")=dt.Compute("count(姓名)", lb & "='" & s & "' and 部门='业务部'")
        dr("财务部")=dt.Compute("count(姓名)", lb & "='" & s & "' and 部门='财务部'")
        sum(0) += dr("人数")
        sum(1) += dr("综合办")
        sum(2) += dr("销售部")
        sum(3) += dr("业务部")
        sum(4) += dr("财务部")
    Next
    dr = dt2.AddNew
    dr("类别") = "合计"
    dr("人数")=sum(0)
    dr("综合办")=sum(1)
    dr("销售部")=sum(2)
    dr("业务部")=sum(3)
    dr("财务部")=sum(4)
Next

 回到顶部
帅哥哟，离线，有人找我吗？
HJG_HB950207
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：394 积分：6003 威望：0 精华：0 注册：2015/2/17 10:18:00 		  发帖心情 Post By：2015/6/29 18:42:00 [只看该作者]

谢谢！！！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询