这个统计方法 只能将列放在第一个?
我测试了半天,放第一个就可以,放中间就不行?????????????????
Dim t As
Table =
Tables("订单")
Dim g As
SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible =
False
g = New
SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "产品"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As
Row
For i As
Integer = 0
To t.Rows.Count(True) -
1
r =
t.Rows(i,True)
If
r.IsGroup '如果是分组行
Dim f As
String = "产品 = '" & r("产品") &
"'"
Dim v As
String = " 订单数:" &
t.Compute("Count(日期)",f)
v = v & " 订购数量:" & t.Compute("Sum(数量)",f)
v = v & "
订购金额:" & t.Compute("Sum(金额)",f)
r("产品") = "产品:" &
r("产品") & v
End
If
Next