很简单,在命令窗口执行:
Dim g As New CrossTableBuilder("统计表1", DataTables("第2011年9月应缴税款"))g.HGroups.AddDef("纳税人名称")g.VGroups.AddDef("应征凭证种类")g.Totals.AddDef("税额", "税额")g.HorizontalTotal = Trueg.VerticalTotal = Trueg.Build()MainTable = Tables("统计表1")