以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 交叉表设置列宽  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107852)
--  作者：mikee
--  发布时间：2017/10/11 13:48:00
--  [求助] 交叉表设置列宽
 交叉表的列标题会随着统计数据而变化，这样是否可以设置列宽？ 
另外，统计数据是否可以设置千分号？
--  作者：有点甜
--  发布时间：2017/10/11 14:20:00
--  

 生成交叉表以后，再设置，如

 

Dim g As New CrossTableBuilder("统计表1", DataTables("收益"))
g.HGroups.AddDef("项目编号")
g.VGroups.AddDef("确认时间")
g.Totals.AddDef("分期金额", "分期金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 2
g.Build()
Dim t As Table = Tables("统计表1")

For Each c As Col In t.Cols
    If c.IsNumeric Then
        c.Width = 50
        c.DataCol.SetFormat("#,###.00")
    End If
Next

MainTable = t