......
Dim g As Subtotalgroup
t.StopRedraw()
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.Filter = "日期 >= #9/1/2015# And 日期 <= #12/28/2015#"
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "商品名称"
g.TotalOn = "出库_数量,出库_金额"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
......