以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】代码在窗口按钮不能运行的情况，在线等解！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20491)
--  作者：02010993
--  发布时间：2012/6/10 20:23:00
--  【求助】代码在窗口按钮不能运行的情况，在线等解！！

我在交叉统计中的条件输入：部门 = \'采购部领导\' Or 部门 = \'综合管理处\' Or 部门 = \'计划处\'

 

直接"确定"可以按要求显示结果，但是如果把代码复制到窗口的按钮中却不能执行。什么原因哦，不得其解。

代码如下：

Dim g As New CrossTableBuilder("统计表1", DataTables("采购部在职人员数据库"), "部门 = \'采购部领导\' Or 部门 = \'综合管理处\' Or 部门 = \'计划处\'

")
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")
--  作者：jianjingmaoyi
--  发布时间：2012/6/10 20:56:00
--  

代码如下：

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")