以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态修改表结构怎么指定列宽  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89480)
--  作者：kaituozhe
--  发布时间：2016/8/23 6:22:00
--  动态修改表结构怎么指定列宽

动态修改表结构，增加表列后，怎么同时指定列宽，下列代码怎么修改？

Dim Builder As New ADOXBuilder
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("表A")
    .AddColumn("日期" ,ADOXType.DateTime) \'增加日期型列
    .AddColumn("产品" ,ADOXType.String, 12) \'增加字符型列,长度指定为12
    .AddColumn("客户" ,ADOXType.String, 20) \'增加字符列,长度为20
    .AddColumn("数量" ,ADOXType.Integer) \'增加整数型列
    .AddColumn("备注" ,ADOXType.Text) \'增加备注列
End With
Builder.Close() \'关闭ADOXBuilder

 
--  作者：Hyphen
--  发布时间：2016/8/23 8:50:00
--  
增加列后再设置列宽，参考：http://www.foxtable.com/webhelp/scr/1775.htm
--  作者：kaituozhe
--  发布时间：2016/8/23 12:04:00
--  

动态增加的列比较多，是想根据标题的长度自动设置列宽
--  作者：大红袍
--  发布时间：2016/8/23 12:14:00
--  

 根据字符设置列宽呗

 

For Each c As Col In Tables("表a").cols
    c.Width = c.Caption.length * 15
Next
--  作者：kaituozhe
--  发布时间：2016/9/5 14:06:00
--  

能否动态设置列属性，如固定小数位数，使用千分号等？
--  作者：有点蓝
--  发布时间：2016/9/5 15:30:00
--  
参考：http://www.foxtable.com/webhelp/scr/1356.htm