主题：关于生成统计表的问题

我想根据合同台帐生成一个统计表，根据工程类型水平分组，分别统计合同个数合同额。垂直分组中，“审批“逻辑列已经看着帮助做好了。后面”省内项目“”所属行业“两列的合同额统计怎么做呢？这两项内容这主表中都是自定义项目中选择录入的。省内项目中有山东省、河南省、江苏省等。所属行业有民用建筑、钢铁行业等。

请老师指导

click代码

Dim g As New CrossTableBuilder("统计表1", DataTables("合同台帐"))
g.HGroups.AddDef("工程类型_1")
g.VGroups.AddDef("审批", "已签订合同额|未签订合同额")
g.Totals.AddDef("合同个数","合同个数")
g.Totals.AddDef("合同额", "合同额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Totals.AddDef("工程所在省","山东省")
g.Totals.AddDef("项目所属行业","民用建筑")
g.Build()
MainTable = Tables("统计表1")

甜老师，运行提示，从字符串“山东省”到类型“decimal”的转换无效

修改后运行没有报错，谢谢甜老师。不过我想要的是将山东省和民用建筑这两列的统计是直接针对工程类型的，实现这个效果。
此主题相关图片如下：qq图片20140814171534.jpg

现在运行的是这样的
此主题相关图片如下：qq图片111.jpg

这个民用建筑是对工程类型中“合计”而言，其中民用建筑多少

省内项目也是对工程类型中“合计”而言的，其中省内项目多少

好的，因为原表链接的外部数据库，我简单做了一个类似的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2014年合同.table

谢谢甜老师！

此主题相关图片如下：qq图片20140814180049.jpg

就是这种效果。

代码难度好大，上半段代码能看明白，下半段就似懂非懂了。

还有我想再生成一列“省外项目”（山东省以外）的话，加了这两行成功了。

t.DataTable.DataCols.Add("省外", Gettype(Double))

r("省外") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型_1") & "' and 工程所在省 <> '山东省'")
有更简单的代码的话请甜老师指教。

还有请教甜老师，省内、省外、民用建筑这几列怎么实现合计啊？

工程类型

----------   生成的表中这个怎么改成工程类型？我试着调了一个位置的代码，都报错

     1

好了！

大神，俺崇拜你！