同比环比统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：数据统计.jpg

帮助中的例子是直接用日期列生成同比环比，但现在查询得到的表中没有日期列，只有象统计结果中的年，月那样的列，

Dim g As New GroupTableBuilder("统计表2", DataTables("订单"))
g.Groups.AddDef("年")
g.Groups.AddDef("月")
g.Totals.AddDef("数量", "", "数量_值")
g.Totals.AddDef("金额", "", "金额_值")
g.SamePeriodGrowth = True
g.CircleGrowth = True
g.Build()
MainTable = Tables("统计表2")

上面的代码无法出现同比环比，应该怎么写代码才可以？

谢谢！

如果自己写代码增加临时列发现一个问题如下图

此主题相关图片如下：同比.jpg

上图中的数量与金额不能与左边的数量与金额合并在一起显示了，应该是数量下面有值，同比，环比，金额也相同

代码是这样的

Dim b As New GroupTableBuilder("统计表1",DataTables(winName & "_Table1"))

b.Groups.AddDef("供应商")

b.Totals.AddDef("数量", "", "数量_值")

b.Totals.AddDef("金额", "", "金额_值")

Tables(winName & "_Table2").DataSource = b.BuildDataSource() '打开生成的统计表

'---循环各行生成同比及环比

Dim tbl2 As Table = Tables(winName & "_Table2")

tbl2.DataTable.DataCols.Add("数量同比", Gettype(String),16,"","数量_同比")

tbl2.DataTable.DataCols.Add("数量环比", Gettype(String),16,"","数量_环比")

tbl2.DataTable.DataCols.Add("金额同比", Gettype(String),16,"","金额_同比")

tbl2.DataTable.DataCols.Add("金额环比", Gettype(String),16,"","金额_环比")

......

除了上面的数量与金额统计都自己写代码外，有什么办法让两个数量及金额合并在一起显示？

这样移动表格那里会闪烁一下，用一下面防止屏闪的也没用

Forms(winName).StopRedraw

Tables(winName & "_Table2").StopRedraw

tbl2.cols("数量同比").move(4)

tbl2.cols("数量环比").move(5)

Forms(winName).ResumeRedraw

Tables(winName & "_Table2").ResumeRedraw

为什么同环比必须要是日期列才行啊，用查询表生成的年及月要是可以的话用系统默认的方式很简单，看来分组及统计数量及金额同环比等全部都要自己写代码了

主题：同比环比统计问题