如何根据性别统计男职与女职生人数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何根据性别统计男职与女职生人数

共有4408人关注过本帖树形打印复制链接主题：如何根据性别统计男职与女职生人数

ybc76

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

加好友

发短信

等级：幼狐帖子：136 积分：1090 威望：0 精华：0 注册：2011/12/18 14:29:00

如何根据性别统计男职与女职生人数 发帖心情

Post By：2013/12/13 8:12:00 [只看该作者]

这个汇总的代码如何把条件加进去啊，就是统计性别=‘女’的人数，和性别=‘男’的人数

Dim t As Table = Tables("ryda")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

t.GroupAboveData = False

t.TreeVisible = False

t.SpillNode = True

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Count

g.GroupOn = "*"

g.TotalOn = "姓名"

g.Caption = "人数"

t.SubtotalGroups.Add(g)

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Count

g.GroupOn = "*"

g.TotalOn = "性别"

g.Caption = "女工"

t.SubtotalGroups.Add(g)

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Count

g.GroupOn = "*"

g.TotalOn = "性别"

g.Caption = "男工"

t.SubtotalGroups.Add(g)

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/12/13 8:34:00 [只看该作者]

命令窗口执行：

Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Count
g.GroupOn = "*"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

Dim r As Row = t.Rows(t.Rows.Count(True)-1, True)
Dim n As Integer = t.Compute("Count(姓名)","性别 = '男'")
r("性别") = "男:" & n & ",女:" & (t.rows.count - n)

参考：

http://www.foxtable.com/help/topics/1594.htm

http://www.foxtable.com/help/topics/1911.htm

http://www.foxtable.com/help/topics/1964.htm

[此贴子已经被作者于2013-12-13 8:35:56编辑过]

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/13 8:37:00 [只看该作者]

汇总模式是不可以设置条件的

你可以考虑使用代码自定义汇总的方式.

http://www.foxtable.com/help/topics/1964.htm

ybc76

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

加好友

发短信

等级：幼狐帖子：136 积分：1090 威望：0 精华：0 注册：2011/12/18 14:29:00

Post By：2013/12/13 9:51:00 [只看该作者]

这代码还是有问题，统计的不对！！！
图片点击可在新窗口打开查看

此主题相关图片如下：1.jpg

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/12/13 9:52:00 [只看该作者]

这个是因为没有输入性别的，就当做女的了，你可以直接修改我二楼的代码，先理解一下，再修改

ybc76

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

加好友

发短信

等级：幼狐帖子：136 积分：1090 威望：0 精华：0 注册：2011/12/18 14:29:00

Post By：2013/12/13 10:02:00 [只看该作者]

我改成这样，结果正确。

Dim t As Table = Tables("ryda")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

t.GroupAboveData = False

t.TreeVisible = False

t.SpillNode = True

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Count

g.GroupOn = "*"

g.TotalOn = "姓名"

g.Caption = "人数"

t.SubtotalGroups.Add(g)

t.Subtotal()

Dim r As Row = t.Rows(t.Rows.Count(True)-1, True)

Dim n As Integer = t.Compute("Count(姓名)","性别 = '男'")

Dim m As Integer = t.Compute("Count(姓名)","性别 = '女'")

r("组织名称") = "男:" & n & ",女:" & m & ""

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

主题：如何根据性别统计男职与女职生人数