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

此主题相关图片如下：自动插入合计行.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

小计置上

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