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

谢谢甜老师！

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

就是这种效果。

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

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

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

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

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

代码

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

工程类型

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

     1

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

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

Tables("统计月报表1").SetColVisibleWidth("工程类型|90|未签订合同额_合同个数|70|未签订合同额_合同额|90|已签订合同额_合同个数|70|已签订合同额_合同额|90|合计_合同个数|70|合计_合同额|90|省内项目|90|省外项目|90|民用建筑|90")

写代码后已签和未签都隐藏了，反复看了，没写错什么啊，哪儿不对？

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