这个汇总的代码如何把条件加进去啊，就是统计性别=‘女’的人数，和性别=‘男’的人数
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)
加好友 
发短信
Post By：2013/12/13 8:12:00 [只看该作者]
