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

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 & ""