以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在专业报表编码中增加环比列和同比列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132083)
--  作者：wangj6666
--  发布时间：2019/3/13 16:20:00
--  在专业报表编码中增加环比列和同比列
各位专家大家好！
      我在专业报表中编写了如下代码：
Dim g As New GroupTableBuilder("生产线张平面积", DataTables("成品检验质量信息"))
g.Groups.AddDef("量革日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("量革日期", "月")
g.Groups.AddDef("所属生产线")
g.Groups.AddDef("层别")
g.Totals.AddDef("入库张数")
g.Totals.AddDef("入库面积SF")
g.Build()
Tables("生产线张平面积").Sort = "年 DESC,月 DESC"
DataTables("生产线张平面积").DataCols.Add("张平面积",Gettype(Double),"入库面积SF/入库张数") 
DataTables("生产线张平面积").DataCols("张平面积").SetFormat("#0.00") 
MainTable = Tables("生产线张平面积")

现在我想在生成的”生产线张平面积“表中增加”张平面积“的环比列和同比列，请问如何修改代码才能实现？谢谢！
--  作者：有点甜
--  发布时间：2019/3/13 16:31:00
--  

 

生成的表【生产线张平面积】，再做一次分组统计，即可

 

 

 

 
--  作者：wangj6666
--  发布时间：2019/3/13 16:43:00
--  
生成的【生产线张平面积】表中年月已经是文本了，我再在其中作了一次分组统计，并勾选了生成环比、生成同比，结果还是没这两列出现。请专家详细讲解一下！！？
--  作者：有点甜
--  发布时间：2019/3/13 18:21:00
--  

参考

 

Dim g As New GroupTableBuilder("统计表1", DataTables("订单"))
g.Groups.AddDef("日期", DateGroupEnum.None)
g.Groups.AddDef("产品")
g.Totals.AddDef("数量")
g.Totals.AddDef("金额")
g.Build()
MainTable = Tables("统计表1")

 

Dim g As New GroupTableBuilder("统计表3", DataTables("统计表1"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("产品")
g.Totals.AddDef("金额")
g.SamePeriodGrowth = True
g.CircleGrowth = True
g.Build()
MainTable = Tables("统计表3")