分组统计出现重复列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分组统计出现重复列

共有1762人关注过本帖树形打印复制链接主题：分组统计出现重复列

xujie80

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：350 积分：3412 威望：0 精华：0 注册：2015/5/12 15:33:00

分组统计出现重复列 发帖心情

Post By：2016/6/3 9:43:00 [只看该作者]

我要对“员工资料”中的“婚姻状况”字段进行分组统计，“婚姻状况”分为“未婚”、“已婚”、“丧偶”、“离异”、“其它”，录入员有时疏忽有空值，有时填了“无”。

语句如下：

Dim b As New crossTableBuilder("统计表1",DataTables("员工资料")) '定义交叉分组表

b.hGroups.AddDef("部门村居","村居")

b.hGroups.AddDef("所站办组","组别")

b.hGroups.AddDef("姓名")

b.vGroups.AddDef("婚姻状况")

b.Totals.AddDef("婚姻状况",AggregateEnum.count)

b.Build

结果空值、离异、已婚、无各1列，丧偶变成了5列，未婚变成了3列。
图片点击可在新窗口打开查看

此主题相关图片如下：工.png

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/3 9:45:00 [只看该作者]

数据例子发上来。

xujie80

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：350 积分：3412 威望：0 精华：0 注册：2015/5/12 15:33:00

Post By：2016/6/3 9:50:00 [只看该作者]

实例

xujie80

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：350 积分：3412 威望：0 精华：0 注册：2015/5/12 15:33:00

Post By：2016/6/3 9:51:00 [只看该作者]

例子

下载信息 [文件大小：下载次数： ]
点击浏览该文件:婚姻.foxdb

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/3 9:56:00 [只看该作者]

For Each dr As DataRow In DataTables("员工资料").Select("")
    dr("婚姻状况") = dr("婚姻状况").trim
    If dr("婚姻状况") = Nothing OrElse dr("婚姻状况") = "无" Then
        dr("婚姻状况") = "未婚"
    End If
    If dr("婚姻状况") = "其他" Then
        dr("婚姻状况") = "其它"
    End If
Next

Dim b As New crossTableBuilder("统计表1",DataTables("员工资料")) '定义交叉分组表
b.hGroups.AddDef("部门村居","村居")
b.hGroups.AddDef("所站办组","组别")
b.hGroups.AddDef("姓名")
b.vGroups.AddDef("婚姻状况")
b.Totals.AddDef("婚姻状况",AggregateEnum.count)
b.Build

下一主题 >> << 上一主题

主题：分组统计出现重复列