标题：各位帮忙看看，交叉统计代码出错啦！

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

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) '生成统计表

哦