汇总模式不能隐藏行。收缩起来。比如
Dim t As Table = Tables("订单")Dim g As Subtotalgroup
t.ResumeRedraw()t.StopRedraw()t.SubtotalGroups.Clear()t.GroupAboveData = Truet.TreeVisible = Truet.SpillNode = True
g = New Subtotalgroupg.Aggregate = AggregateEnum.Sumg.GroupOn = "客户"g.TotalOn = "数量"g.Caption = "{0} 小计"t.SubtotalGroups.Add(g)
t.Subtotal()t.Grid.Tree.Show(0)t.ResumeRedraw()