Dim t As Table = Tables("流水表")Dim g As SubtotalGroupt.SubtotalGroups.Clear()t.GroupAboveData = Falset.TreeVisible = False
g = New SubtotalGroupg.Aggregate = AggregateEnum.Sumg.GroupOn = "*"g.TotalOn = "正课,辅导,补课,甘孜班_守班,甘孜班_补课,甘孜班_辅导,甘孜班_巡查"g.Caption = "总计"t.SubtotalGroups.Add(g)
t.Subtotal()