以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何设置汇总表和交叉汇总表的列宽  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57850)

--  作者:一笑
--  发布时间:2014/10/6 0:14:00
--  如何设置汇总表和交叉汇总表的列宽
请教专家,我想设置分组汇总表的列宽,报错,
Dim g As New GroupTableBuilder("机型汇总", DataTables("八月时间"))
g.Groups.AddDef(分组)
g.Totals.AddDef(汇总)
        g.Totals.AddDef(汇总2)
g.VerticalTotal = True
g.Cols().PrintWidth = 15
g.Build()
MainTable = Tables("机型汇总")
该如何修改,谢谢

--  作者:有点甜
--  发布时间:2014/10/6 9:14:00
--  
Dim g As New GroupTableBuilder("机型汇总", DataTables("八月时间"))
g.Groups.AddDef(分组)
g.Totals.AddDef(汇总)
g.Totals.AddDef(汇总2)
g.VerticalTotal = True
g.Build()
For Each c As Col In Tables("机型汇总").Cols
    c.Width = 15
Next

MainTable = Tables("机型汇总")