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

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

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

 

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

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

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

代码

 

Dim g As New CrossTableBuilder("统计表111", 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("统计表111")
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("合同台帐").Compute("sum(合同额)", "工程所在省 = '山东省'")
        r("民用建筑") = DataTables("合同台帐").Compute("sum(合同额)", "项目所属行业 = '民用建筑'")
        r("省外") = DataTables("合同台帐").Compute("sum(合同额)", "工程所在省 <> '山东省'")
    Else
        r("山东省") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型_1") & "' and 工程所在省 = '山东省'")
        r("民用建筑") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型_1") & "' and 项目所属行业 = '民用建筑'")
        r("省外") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型_1") & "' and 工程所在省 <> '山东省'")
    End If
Next

MainTable = t

Dim g As New CrossTableBuilder("统计表111", 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("统计表111")
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("合同台帐").Compute("sum(合同额)", "工程所在省 = '山东省'")
        r("民用建筑") = DataTables("合同台帐").Compute("sum(合同额)", "项目所属行业 = '民用建筑'")
        r("省外") = DataTables("合同台帐").Compute("sum(合同额)", "工程所在省 <> '山东省'")
    Else
        r("山东省") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型") & "' and 工程所在省 = '山东省'")
        r("民用建筑") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型") & "' and 项目所属行业 = '民用建筑'")
        r("省外") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型") & "' and 工程所在省 <> '山东省'")
    End If
Next

MainTable = t

 你可以写进代码里

 

http://www.foxtable.com/help/topics/1775.htm

 

Dim g As New CrossTableBuilder("统计表111", 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("统计表111")
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("合同台帐").Compute("sum(合同额)", "工程所在省 = '山东省'")
        r("民用建筑") = DataTables("合同台帐").Compute("sum(合同额)", "项目所属行业 = '民用建筑'")
        r("省外") = DataTables("合同台帐").Compute("sum(合同额)", "工程所在省 <> '山东省'")
    Else
        r("省内") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型") & "' and 工程所在省 = '山东省'")
        r("民用建筑") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型") & "' and 项目所属行业 = '民用建筑'")
        r("省外") = DataTables("合同台帐").Compute("sum(合同额)", "工程类型_1 = '" & r("工程类型") & "' and 工程所在省 <> '山东省'")
    End If
Next
t.SetColVisibleWidth("工程类型|90|合同个数_1|70|合同额_1|90|合同个数_2|70|合同额_2|90|合计_合同个数|70|合计_合同额|90|省内|90|省外|90|民用建筑|90")

MainTable = t