主题：[求助]自动插入合计行

在以下代码中自动插入同一乡名同一龄组('成熟林','过熟林','近熟林')的合计行

此主题相关图片如下：自动插入合计行.jpg

Dim g As New CrossTableBuilder("近成过", DataTables("二类小班"))
g.Filter ="(([林种] In ('一般用材林')) And ([龄组] In ('成熟林','过熟林','近熟林'))) And ([径级组] Is Not Null)"
g.HGroups.AddDef("乡名")
g.HGroups.AddDef("龄组")
g.HGroups.AddDef("优势树种")
g.VGroups.AddDef("径级组")
g.Totals.AddDef("小班株数百株", "株数")
g.Totals.AddDef("小班蓄积", "蓄积")
g.HorizontalTotal = True
g.VerticalTotal = True
g.HorizontalProportion = True
g.Build()
MainTable = Tables("近成过")
Tables("近成过").OpenView("统计")

Dim Book As New XLS.Book(ProjectPath & "Attachments\报表8.xls")
Dim fl As String = ProjectPath & "Reports\报表8.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl

 再设置一下汇总模式就行。

 

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

 

小计置上

 

此主题相关图片如下：小计置上.jpg

Dim g As New CrossTableBuilder("近成过", DataTables("二类小班"))
g.Filter ="(([林种] In ('一般用材林')) And ([龄组] In ('成熟林','过熟林','近熟林'))) And ([径级组] Is Not Null)"
g.HGroups.AddDef("乡名")
g.HGroups.AddDef("龄组")
g.HGroups.AddDef("优势树种")
g.VGroups.AddDef("径级组")
g.Totals.AddDef("小班株数百株", "株数")
g.Totals.AddDef("小班蓄积", "蓄积")
g.HorizontalTotal = True
g.VerticalTotal = True
g.HorizontalProportion = True
g.Decimals = 2
g.Subtotal = True
g.Build()
MainTable = Tables("近成过")
Tables("近成过").OpenView("统计")

汇总模式小计可以置上，交叉统计没这个功能。

 

 生成交叉统计以后，再生成一次汇总统计不就行了

超级版主，还有办法不？

 这个就是最简单的办法。不会做，把例子上传，我给你写。