[浏览完整版]
标题：在SQLGroupTableBuilder等专业统计工具中统计出的列如何自动设置最佳列宽？
1楼
shixia 发表于：2010/8/23 15:35:00如题。上图列出今天8月份的统计表，下个月再统计就出现9月份的统计表，统计表的列名总是变动的，用代码一个个实现不方便，最好在统计中增加自动设置最佳列宽的参数。
此主题相关图片如下：未命名.jpg
2楼
donaldwc 发表于：2010/8/23 16:10:00关注中...............
3楼
czy 发表于：2010/8/23 16:40:00系统菜单内置了一个最佳列宽，Sendkeys试试。
4楼
czy 发表于：2010/8/23 16:41:00大概应该这样吧。
Tables("统计表1").Select(0,0,0,Tables("统计表1").Cols.Count-1)
Sendkeys.Send("{Tab 3}~")
Syscmd.Column.Width()
Tables("统计表1").Select(0,0)
5楼
狐狸爸爸 发表于：2010/8/23 17:03:00可以这样设置，不用考虑表名、列名，通用:
For Each c As Col in Tables("xxx").Cols
if c.DataCol.IsNumeric Then
c.Width - 100
End If
Next
6楼
shixia 发表于：2010/8/23 17:10:00Sendkeys.Send("{Tab 3}~") 是什么意思？ "{Tab 3}~"帮助里没有哦
7楼
donaldwc 发表于：2010/8/23 17:46:00收藏
8楼
czy 发表于：2010/8/23 17:52:00以下是引用狐狸爸爸在2010-8-23 17:03:00的发言：
可以这样设置，不用考虑表名、列名，通用:
For Each c As Col in Tables("xxx").Cols
if c.DataCol.IsNumeric Then
c.Width - 100
End If
Next
老六少打了个=
不过这样是返回默认列宽。
9楼
kylin 发表于：2010/8/24 9:47:00[此贴子已经被作者于2010-8-24 9:47:15编辑过]
10楼
狐狸爸爸 发表于：2010/8/24 9:55:00For Each c As Col in Tables("xxx").Cols
if c.DataCol.IsNumeric Then
c.Width = 100 '100是希望的列宽
End If
Next