主题：汇总时，列中内容问题？

'''
Dim t As Table = Tables("一店_table1")
t.DataTable.DataCols.Add("临时姓名", Gettype(String))
t.DataTable.DataCols.Add("临时金额", Gettype(Double))
For Each r As Row In t.rows
    r(“临时姓名") = r("姓名").replace("(到店)", "")
    r("临时金额") = t.Compute("sum(购买金额)", "姓名 like '%" & r("姓名") & "%'")
Next

Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = True
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "临时姓名"
g.TotalOn = "购买金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()

t.sort = "临时金额 desc"