主题：[求助]如何显示环比和同比的具体数值

各位老师，分组统计可以生成同比增长率和环比增长率，我想一起显示出同比和环比的具体数值，

需要编写代码增加列，然后动态插入数据。具体问题，做个实例发上来测试。

此主题相关图片如下：tim截图20181225104932.png

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Totals.AddDef("数量")
g.SamePeriodGrowth = True
g.CircleGrowth = True
g.Build()
Dim t As Table = Tables("统计表1")
t.DataTable.DataCols.Add("同比增长", Gettype(String))
t.DataTable.DataCols.Add("环比增长", Gettype(String))
For Each r As Row In t.Rows
    If r("数量stp") <> Nothing Then
        Dim i = t.FindRow("年=" & r("年")-1 & " And 月=" & r("月"))
        If i >= 0 Then
            r("同比增长") = Format(r("数量stp"), "0.00%") & "(" & r("数量") - t.Rows(i)("数量") & ")"
        End If
    End If
    If r("数量cle") <> Nothing Then
        Dim i As Integer
        If r("月") = 1 Then
            i = t.FindRow("年=" & r("年")-1 & " And 月=12")
        Else
            i = t.FindRow("年=" & r("年") & " And 月=" & r("月")-1)
        End If
        If i >= 0 Then
            r("环比增长") = Format(r("数量cle"), "0.00%") & "(" & r("数量") - t.Rows(i)("数量") & ")"
        End If
    End If
Next
MainTable = Tables("统计表1")

谢谢老师，想问下  If r("数量stp") <> Nothing Then 这行，为什么要加stp和cle??

 

参考

 

http://www.foxtable.com/webhelp/scr/0193.htm