主题：命令窗口使用代码正常，菜单按钮提示报错

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列