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