主题：统计代码问题

 

学习的一个统计表，代码产生表金额和数量是分开的，怎样才能归类在一起，如协议订货：金额 数量；新增订货：金额 数量，等。请高手帮我修改代码。谢谢了！下面是代码：

Dim g As New CrossTableBuilder("统计表33", DataTables("新增订货"), "[新增合同] OR [当年协议转合同] OR [上年协议转合同] OR [新增协议] OR [上年协议]= TRUE")

g.Caption = "当年订货情况(外站)"

g.HGroups.AddDef("站名")

g.VGroups.AddDef("新增合同")

g.VGroups.AddDef("当年协议转合同")

g.VGroups.AddDef("上年协议转合同")

g.VGroups.AddDef("新增协议")

g.VGroups.AddDef("上年协议")

g.Totals.AddDef("不含税金额", "不含税金额(万元)")

g.Totals.AddDef("数量", "数量")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Filter = "[新增合同] OR [当年协议转合同] OR [上年协议转合同] OR [新增协议] OR [上年协议]= TRUE"

g.Build()

Tables("统计表33").Cols("不含税金额_1").Caption="不含税金额(万元)_上年协议"

Tables("统计表33").Cols("数量_1").Caption="数量_上年协议"

Tables("统计表33").Cols("不含税金额_2").Caption="不含税金额(万元)_新增协议"

Tables("统计表33").Cols("数量_2").Caption="数量_新增协议"

Tables("统计表33").Cols("不含税金额_3").Caption="不含税金额(万元)_上年协议转合同"

Tables("统计表33").Cols("数量_3").Caption="数量_上年协议转合同"

Tables("统计表33").Cols("不含税金额_4").Caption="不含税金额(万元)_当年协议转合同"

Tables("统计表33").Cols("数量_4").Caption="数量_当年协议转合同"

Tables("统计表33").Cols("不含税金额_5").Caption="不含税金额(万元)_新增合同"

Tables("统计表33").Cols("数量_5").Caption="数量_新增合同"

Tables("统计表33").DataTable.BuildHeader

MainTable = Tables("统计表33")

我是新手对代码不熟，请高手帮忙将代码改为生成B表格式，谢谢了！B表见附件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:b.xls

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:b.xls