主题：代码出现错误

 

dim sql As String="s  elect {工程统计表}.工程名称,工程类型,日期,地区 from {工程统计表},{工程数据表} where {工程统计表}.工程名称={工程数据表}.工程名称"

 

Dim b As New CrossTableBuilder("统计表",sql,"外部数据sql2008")

 

b.HGroups.AddDef("工程名称")

b.HGroups.AddDef("日期")

b.HGroups.AddDef("工程类型")

b.HGroups.AddDef("地区")

b.HorizontalTotal = True

b.VerticalTotal = True

b.Build()

MainTable = Tables("统计表")

提示统计表 不存在