Dim bd1 As New CrossTableBuilder("统计表1",DataTables("科室数据"))

Dim dt1 As fxDataSource

bd1.Filter = "[商品序号] = \'1\'"

bd1.HGroups.AddDef("单量口岸类型","口岸") 

bd1.HGroups.AddDef("结关年月")

bd1.VGroups.AddDef("进出口标志","报关单量_{0}") 

bd1.Totals.AddDef("报关单号",AggregateEnum.Count)

dt1 = bd1.BuildDataSource()

Dim bd2 As New CrossTableBuilder("统计表2",DataTables("科室数据"))

Dim dt2 As fxDataSource

bd2.HGroups.AddDef("货值口岸类型","口岸") 

bd2.HGroups.AddDef("结关年月") 

bd2.VGroups.AddDef("进出口标志","货值_{0}") 

bd2.Totals.AddDef("统计美元价")

dt2 = bd2.BuildDataSource()

Dim bd3 As New CrossTableBuilder("统计表3",DataTables("科室数据"))

Dim dt3 As fxDataSource

bd3.Filter = "[商品序号] = \'1\'"

bd3.HGroups.AddDef("货值口岸类型","口岸") 

bd3.HGroups.AddDef("结关年月")

bd3.VGroups.AddDef("进出口标志","毛重_{0}")

bd3.Totals.AddDef("毛重")

dt3 = bd3.BuildDataSource()

Dim nms As String() = {"口岸","结关年月"} \'指定连接列

dt1.Combine(nms,dt2,nms) \'将销售统计数据组合到进货统计数据

dt1.Combine(nms,dt3,nms) \'将销售统计数据组合到进货统计数据

dt1.Show("统计表1") \'显示统计结果

————————————————————————————

2、改造后的sqlcrosstablebuilder代码：