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

上半段我将代码改成  Dim g As New CrossTableBuilder("统计月报表111", DataTables("合同台帐2018"), "签订单位 Not In ('地质环境分公司') And 签订单位 Not In ('新疆分公司')")

运行正常。

下半段 Dim t As Table = Tables("统计表111")  我也想改成类似模式，但怎么调试代码都提示错误。

请问应该如何编写呢

g.HGroups.AddDef("工程类型_1","工程类型")

g.VGroups.AddDef("审批", "已签订合同额|未签订合同额")

g.Totals.AddDef("合同个数", "合同个数")

g.Totals.AddDef("合同额", "合同额")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Build()

t.DataTable.DataCols.Add("省内项目", Gettype(Double))

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

t.DataTable.DataCols.Add("民用建筑", Gettype(Double))

For Each r As Row In t.Rows

    If r.Index = t.Rows.Count - 1 Then

        r("省内项目") = DataTables("合同台帐2018").Compute("sum(合同额)", "工程所在省 = '山东省' and " & filter)

        r("省外项目") = DataTables("合同台帐2018").Compute("sum(合同额)", "工程所在省 <> '山东省' and " & filter)

        r("民用建筑") = DataTables("合同台帐2018").Compute("sum(合同额)", "项目所属行业 = '房地产业' and " & filter)

           Else

        r("省内项目") = DataTables("合同台帐2018").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型") & "' and 工程所在省 = '山东省' and " & filter)

        r("省外项目") = DataTables("合同台帐2018").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型") & "' and 工程所在省 <> '山东省' and " & filter)

        r("民用建筑") = DataTables("合同台帐2018").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型") & "' and 项目所属行业 = '房地产业' and " & filter)  

    End If

Next

t.SetColVisibleWidth("工程类型|90|合同个数_1|60|合同额_1|90|合同个数_2|60|合同额_2|90|合计_合同个数|60|合计_合同额|90|省内项目|90|省外项目|90|民用建筑|90") 

MainTable = t

但是为什么我用现在的旧代码加上第一句代码，后半段的累计数字就不对，是全表累计。

但是我全部复制你的代码，后半段的累计数字就是正确的，是除了两个分公司之外的累计。

我看了半天也没看出区别来啊