主题：[求助]自定义汇总模式

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

需要的效果是，如果是统计汇总第三级时，将前两级的名称补上，如果是统计汇总第二级时，将前一级的名称不上，例如：

PD01 - CS01 - EP01:  订单数量：100

PD01 - CS01 - EP02： 订单数量：100

PD01 - CS01：  订单数量：200

PD01 - CS02 - EP01:  订单数量：100

PD01 - CS02 - EP02： 订单数量：100

PD01 - CS02：  订单数量：200

PD01：  订单数量：400