主题：【求助】代码在窗口按钮不能运行的情况，在线等解！！

代码如下：

Dim g As New CrossTableBuilder("统计表1", DataTables("采购部在职人员数据库")

")
g.HGroups.AddDef("部门")
g.VGroups.AddDef("最高学历")
g.Totals.AddDef("最高学历", AggregateEnum.Count, "最高学历")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Filter = "部门 = '采购部领导' Or 部门 = '综合管理处' Or 部门 = '计划处'

"
g.Build()
MainTable = Tables("统计表1")