Dim b As New SQLCrossTableBuilder("a","aec00000")
b.c
b.AddTable("aec00000","itemcode","aaa00000","code") \'添加统计表
b.AddTable("aec00000","id_contract","eba00000","id_contract") \'添加统计表
b.AddTable("aaa00000","classcode","aam00000","classcode") \'添加统计 表
b.AddCols("aam00000","classcode") \'指定列来源
b.AddCols("aam00000","classname") \'指定列来源
b.AddCols("eba00000","sellunit") \'指定列来源
b.HGroups.AddDef("classcode","分类码") \'添加水平分组
b.HGroups.AddDef("classname","分类名称") \'添加水平分组
b.VGroups.AddDef("requiredate",DateGroupEnum.none) \'添加垂直分组
b.Totals.AddDef("plannum") \'添加数量列用于统计
b.VerticalTotal=True
\'此处设置查询条件
b.filter="[requiredate]>getdate()-1 and [centercode]=\'0100\' and [sellunit]<>\'0702\'"   \'工厂全部订单分析
b.Decimals=0 \'不保留小数
b.Build(True) \'生成统计表
Tables("nb_table1").DataSource = b.BuildDataSource()

上述代码在菜单按钮中报错，提示未指定classcode列

没有这种道理的。

另外建议重看SQLCrossTableBuilder的帮助：

http://help.foxtable.com/topics/1627.htm

现在的SQLCrossTableBuilder已经不需要用AddCols了