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

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

请老师指导

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

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.Filter = "工程所在省 = '山东省' and 项目所属行业 = '民用建筑'"
g.Build()
MainTable = Tables("统计表1")

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

 

有可能你代码本来就是错的，你最好上传一个例子说明问题，改一下

 

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("工程所在省", AggregateEnum.Count,"山东省")
g.Totals.AddDef("项目所属行业",AggregateEnum.Count,"民用建筑")
g.Filter = "工程所在省 = '山东省' and 项目所属行业 = '民用建筑'"
g.Build()
MainTable = Tables("统计表1")

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

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

 

 

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

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

  要额外编写代码计算的，你上传项目或例子或数据吧。

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

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

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

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.Build()

Dim t As Table = Tables("统计表1")
t.DataTable.DataCols.Add("山东省", Gettype(Double))
t.DataTable.DataCols.Add("民用建筑", Gettype(Double))
For Each r As Row In t.Rows
    r("山东省") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型_1") & "' and 工程所在省 = '山东省'")
    r("民用建筑") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型_1") & "' and 项目所属行业 = '民用建筑'")
Next

MainTable = t