Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]分两级统计的问题，急求，谢谢


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

主题：[求助]分两级统计的问题，急求，谢谢
帅哥哟，离线，有人找我吗？
良木
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：38 积分：398 威望：0 精华：0 注册：2013/7/15 14:16:00 		[求助]分两级统计的问题，急求，谢谢  发帖心情 Post By：2013/11/11 15:53:00 [只看该作者]

求助，各位，我写的代码如下：
DataTables("个人统计").datarows.Clear
Tables("个人统计").StopRedraw
Dim dt As DataTable = DataTables("个人信息")
Dim cList As List(of String) = DataTables("个人信息").GetUniqueValues("","村")
Dim cList2 As List(of String) = DataTables("个人信息").GetUniqueValues("","社")
If cList IsNot Nothing Then
        For Each s As String In cList
        Dim dr As DataRow = DataTables("个人统计").AddNew
        dr("村")=s
        dr("总人数")=dt.Compute("count(姓名)","村='" & s & "'")
        dr("其中女")=dt.Compute("count(姓名)","村='" & s & "' and 性别 = '女'")
        dr("党员_总数")=dt.Compute("count(姓名)","村='" & s & "' and 政治面貌 = '党员'")
        dr("党员_其中女")=dt.Compute("count(姓名)","村='" & s & "' and 政治面貌 = '党员' and 性别 = '女'")
        dr("团员_总数")=dt.Compute("count(姓名)","村='" & s & "' and 政治面貌 = '团员'")
        dr("团员_其中女")=dt.Compute("count(姓名)","村='" & s & "' and 政治面貌 = '团员' and 性别 = '女'")
        dr("残疾人数")=dt.Compute("count(姓名)","村='" & s & "' and 身体状况 = '残疾'")
        dr("外出务工_人数")=dt.Compute("count(姓名)","村='" & s & "' and 人员去向 like '*务工*'")
        dr("外出务工_其中女")=dt.Compute("count(姓名)","村='" & s & "' and 人员去向 like '*务工*' and 性别 = '女'")
        dr("农村低保_一类")=dt.Compute("count(姓名)","村='" & s & "' and 农村低保 = '农村一类'")
        dr("农村低保_二类")=dt.Compute("count(姓名)","村='" & s & "' and 农村低保 = '农村二类'")
        dr("农村低保_三类")=dt.Compute("count(姓名)","村='" & s & "' and 农村低保 = '农村三类'")
        dr("农村低保_四类")=dt.Compute("count(姓名)","村='" & s & "' and 农村低保 = '农村四类'")
        dr("农村低保_无低保")=dt.Compute("count(姓名)","村='" & s & "' and 农村低保 = '无低保'")
        dr("合作医疗_已参合")=dt.Compute("count(姓名)","村='" & s & "' and 合作医疗 = '已参合'")
        dr("合作医疗_未参合")=dt.Compute("count(姓名)","村='" & s & "' and 合作医疗 = '未参合'")
        dr("养老保险_已投保")=dt.Compute("count(姓名)","村='" & s & "' and 养老保险 = '已投保'")
        dr("养老保险_未投保")=dt.Compute("count(姓名)","村='" & s & "' and 养老保险 = '未投保'")
        dr("养老保险_领取养老金")=dt.Compute("count(姓名)","村='" & s & "' and 养老保险 like '*领*'")
    Next
    If cList2 IsNot Nothing Then
        For Each s As String In cList2
            Dim dr2 As DataRow = DataTables("个人统计").AddNew
            dr2("社")=s
            dr2("总人数")=dt.Compute("count(姓名)","社='" & s & "'")
            dr2("其中女")=dt.Compute("count(姓名)","社='" & s & "' and 性别 = '女'")
            dr2("党员_总数")=dt.Compute("count(姓名)","社='" & s & "' and 政治面貌 = '中共党员'")
            dr2("党员_其中女")=dt.Compute("count(姓名)","社='" & s & "' and 政治面貌 = '中共党员' and 性别 = '女'")
            dr2("团员_总数")=dt.Compute("count(姓名)","社='" & s & "' and 政治面貌 = '团员'")
            dr2("团员_其中女")=dt.Compute("count(姓名)","社='" & s & "' and 政治面貌 = '团员' and 性别 = '女'")
            dr2("残疾人数")=dt.Compute("count(姓名)","社='" & s & "' and 身体状况 = '残疾'")
            dr2("外出务工_人数")=dt.Compute("count(姓名)","社='" & s & "' and 人员去向 like '*务工*'")
            dr2("外出务工_其中女")=dt.Compute("count(姓名)","社='" & s & "' and 人员去向 like '*务工*' and 性别 = '女'")
            dr2("农村低保_一类")=dt.Compute("count(姓名)","社='" & s & "' and 农村低保 = '农村一类'")
            dr2("农村低保_二类")=dt.Compute("count(姓名)","社='" & s & "' and 农村低保 = '农村二类'")
            dr2("农村低保_三类")=dt.Compute("count(姓名)","社='" & s & "' and 农村低保 = '农村三类'")
            dr2("农村低保_四类")=dt.Compute("count(姓名)","社='" & s & "' and 农村低保 = '农村四类'")
            dr2("农村低保_无低保")=dt.Compute("count(姓名)","社='" & s & "' and 农村低保 = '无低保'")
            dr2("合作医疗_已参合")=dt.Compute("count(姓名)","社='" & s & "' and 合作医疗 = '已参合'")
            dr2("合作医疗_未参合")=dt.Compute("count(姓名)","社='" & s & "' and 合作医疗 = '未参合'")
            dr2("养老保险_已投保")=dt.Compute("count(姓名)","社='" & s & "' and 养老保险 = '已投保'")
            dr2("养老保险_未投保")=dt.Compute("count(姓名)","社='" & s & "' and 养老保险 = '未投保'")
            dr2("养老保险_领取养老金")=dt.Compute("count(姓名)","社='" & s & "' and 养老保险 like '*领*'")
        Next
    End If
End If
Tables("个人统计").ResumeRedraw


统计出来是
图片点击可在新窗口打开查看此主题相关图片如下：2103.jpg
图片点击可在新窗口打开查看
怎样才能按村统计，每个村下是社啊，请高手给写个编码，谢谢了
[此贴子已经被作者于2013-11-11 22:35:33编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 15:54:00 [只看该作者]

有个例子才好办.

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


加好友 发短信
等级：婴狐 帖子：38 积分：398 威望：0 精华：0 注册：2013/7/15 14:16:00 		  发帖心情 Post By：2013/11/11 16:46:00 [只看该作者]

就是把个人信息表按村、社分类，统计出政治面貌_党员，低保_农村一类，二类，三类，四类，合作医疗、养老保险等人数据
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:农户信息管理.rar
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/11/11 16:53:00 [只看该作者]

你这例子连表结构都不对应.
 回到顶部
帅哥哟，离线，有人找我吗？
良木
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：38 积分：398 威望：0 精华：0 注册：2013/7/15 14:16:00 		  发帖心情 Post By：2013/11/11 17:10:00 [只看该作者]

这是导入时出了问题，就是把个人信息表如何能按村分类（村下是社）统计相关人员个数
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 代码类似这样，楼主参考改一下。

DataTables("个人统计").datarows.Clear
Tables("个人统计").StopRedraw
Dim dt As DataTable = DataTables("个人信息")
Dim cList As List(of String()) = DataTables("个人信息").GetUniqueValues("","村","社")
For Each arys As String() In clist
    Dim dr As DataRow = DataTables("个人统计").AddNew
    dr("村") = arys(0)
    dr("社") = arys(1)
    Dim filter As String = "村='" & arys(0) & "' and 社='" & arys(1) & "'"
    dr("总人数") = dt.Compute("count(姓名)",filter)
Next
Tables("个人统计").ResumeRedraw
 回到顶部
帅哥哟，离线，有人找我吗？
良木
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：38 积分：398 威望：0 精华：0 注册：2013/7/15 14:16:00 		  发帖心情 Post By：2013/11/11 22:10:00 [只看该作者]

运行不了啊

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


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

 我复制代码可以运行，你自己照着改成你自己的东西。

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


加好友 发短信
等级：婴狐 帖子：38 积分：398 威望：0 精华：0 注册：2013/7/15 14:16:00 		  发帖心情 Post By：2013/11/11 22:31:00 [只看该作者]

DataTables("个人统计").datarows.Clear
Tables("个人统计").StopRedraw
Dim dt As DataTable = DataTables("个人信息")
Dim cList As List(of String()) = DataTables("个人信息").GetUniqueValues("","村","社")
For Each arys As String() In clist
    Dim dr As DataRow = DataTables("个人统计").AddNew
    dr("村") = arys(0)
    dr("社") = arys(1)
    Dim filter As String = "村='" & arys(0) & "' and 社='" & arys(1) & "'"
    dr("总人数") = dt.Compute("count(姓名)",filter)
    dr("其中女")=dt.Compute("count(姓名)",filter And "性别 = '女'")
    dr("党员_总数")=dt.Compute("count(姓名)",filter And "政治面貌 = '中共党员'")
    dr("党员_其中女")=dt.Compute("count(姓名)",filter And "政治面貌 = '中共党员' and 性别 = '女'")
    dr("团员_总数")=dt.Compute("count(姓名)",filter And "政治面貌 = '团员'")
    dr("团员_其中女")=dt.Compute("count(姓名)",filter And "政治面貌 = '团员' and 性别 = '女'")
    Next
Tables("个人统计").ResumeRedraw
改成这样，运行错误，统计表上只有文庄村  杜湾社 228
我想要       村        社    总人数   其中女  党员    其中女
              文庄村          228       XX       XX       xx
                        杜湾社 228       xx      xx         xx
                        何庄社
             雷庄村            300      xx       xx         xx
                        闫门社  XX       xx       xx        xx
                        魏庄社  xx       xx       xx         xx

这样的效果
 回到顶部
帅哥哟，离线，有人找我吗？
良木
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：38 积分：398 威望：0 精华：0 注册：2013/7/15 14:16:00 		  发帖心情 Post By：2013/11/11 22:34:00 [只看该作者]

我最上面的代码运行出来的效果是先把所有的村统计，再把所有的社统计

此主题相关图片如下：2103.jpg
按此在新窗口浏览图片
我想要      村        社     总人数    其中女   党员     其中女
              文庄村               228       XX       XX       xx
                        杜湾社      228       xx      xx         xx
                        何庄社
              雷庄村                300      xx       xx         xx
                        闫门社       XX       xx       xx        xx
                        魏庄社      xx       xx       xx         xx
这样的效果，能给修改一下吗？
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询