这段代码有什么问题吗，使用的是内部数据源，即内部表

Dim b As New SQLCrossTableBuilder("统计表","gride")
b.AddTable("gride","itemcode","gridc","itemcode")
b.AddCols("gridc","classa","classb","classc")
b.HGroups.AddDef("classa","分类A") \'添加水平分组
b.HGroups.AddDef("classb","分类B") \'添加水平分组
b.HGroups.AddDef("classc","分类C") \'添加水平分组
b.VGroups.AddDef("inputdate",DateGroupEnum.none) \'添加垂直分组
b.Totals.AddDef("plannum") \'添加数量列用于统计
b.Build(True) \'生成统计表
Tables("窗口6_Table1").DataSource = b.BuildDataSource()

 为什么报错呢？

此主题相关图片如下：screenshot1.jpg

为什么这段代码是正确的呢？

Dim b As New SQLCrossTableBuilder("a","aec00000")
b. connectionname  ="erp"

b.AddTable("aec00000","itemcode","aaa00000","code") \'添加统计表
b.AddTable("aaa00000","classcode","aam00000","classcode") \'添加统计表
b.AddCols("aam00000","classcode") \'指定列来源
b.AddCols("aam00000","classname") \'指定列来源
b.HGroups.AddDef("classcode","分类码") \'添加水平分组
b.HGroups.AddDef("classname","分类名称") \'添加水平分组
b.VGroups.AddDef("requiredate",DateGroupEnum.none) \'添加垂直分组
b.Totals.AddDef("plannum") \'添加数量列用于统计
b.Build(true) \'生成统计表

哦