主题：求助 交叉统计！！

Dim sql As String = "select 日期,客户名称,入库数量, 0 as 出库数量 fr om {表a} un ion all select 日期, 客户名称,0,出库数量 fr om {表B}"

Dim b As New CrossTableBuilder("统计表1",sql)
b.HGroups.AddDef("客户名称") '添加日期列用于垂直分组,按年分组
b.VGroups.AddDef("日期",DateGroupEnum.Month,"{0}月") '添加客户列用于水平分组
b.Totals.AddDef("入库数量","入库数量") '添加数量列用于统计
b.Totals.AddDef("出库数量","出库数量") '添加数量列用于统计
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表

如果是外部表，加上

b.Conne ction Name = "数据源"