主题：统计代码问题

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.OrderByTotal = False   ‘改变这个值，可以得到不同的排列位置

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")