以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQLCrossTableBuilder怎么设置列宽？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115655)
--  作者：swagger
--  发布时间：2018/3/11 16:42:00
--  SQLCrossTableBuilder怎么设置列宽？

比如这个


Dim b As New SQLCrossTableBuilder("统计表1","订单")
b.HGroups.AddDef("客户") \'添加客户列用于水平分组
b.VGroups.AddDef("产品","产品_{0}") \'添加产品列用于垂直分组,并设置了Pattern参数
b.Totals.AddDef("数量") \'添加数量列用于统计
b.Build \'生成统计表
Maintable = Tables("统计表1") \'打开生成的统计表




怎么设置客户或者数量列的宽度？ 
--  作者：有点甜
--  发布时间：2018/3/11 19:52:00
--  

生成之后设置列宽，如

 

For Each c As Col In Tables("统计表1").cols
    If c.Caption = "客户" Then
        c.width = 50
    ElseIf c.Caption Like "产品_*" Then
        c.width = 100
    End If
Next