主题：代码只有同比、环比率，没增减额

 没有自动生成的代码。

 你可以生成统计表以后，循环每一行，加减值就是答案，类似

http://www.foxtable.com/help/topics/2482.htm

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("产品")
g.Totals.AddDef("数量")
g.Build()
Dim t As Table = Tables("统计表1")
t.DataTable.DataCols.Add("环比", Gettype(Double))
Dim pr As Row
For Each r As Row In t.Rows
    If pr Is Nothing OrElse r("产品") <> pr("产品") Then
        r("环比") = 0
    Else
        r("环比") = r("数量") - pr("数量")
    End If
    pr = r
Next

MainTable = t

一样，很简单

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("日期",  DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("产品")
g.Totals.AddDef("数量")
g.Build()
Dim t As Table = Tables("统计表1")
t.DataTable.DataCols.Add("同比", Gettype(Double))
t.sort = "产品,月,年"
Dim pr As Row
For Each r As Row In t.Rows
    If pr Is Nothing OrElse r("产品") <> pr("产品") Then
        r("同比") = 0
    Else
        r("同比") = r("数量") - pr("数量")
    End If
    pr = r
Next

MainTable = t

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("日期",  DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")

g.Groups.AddDef("客户")
g.Groups.AddDef("产品")
g.Totals.AddDef("数量")
g.Build()
Dim t As Table = Tables("统计表1")
t.DataTable.DataCols.Add("同比", Gettype(Double))
t.sort = "产品,客户,月,年"
Dim pr As Row
For Each r As Row In t.Rows
    If pr Is Nothing OrElse r("月") <> pr("月") OrElse r("客户") <> pr("客户") OrElse r("产品") <> pr("产品") Then
        r("同比") = 0
    Else
        r("同比") = r("数量") - pr("数量")
    End If
    pr = r
Next

MainTable = t