Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在SQLGroupTableBuilder等专业统计工具中统计出的列如何自动设置最佳列宽？


  共有18036人关注过本帖树形打印复制链接

主题：在SQLGroupTableBuilder等专业统计工具中统计出的列如何自动设置最佳列宽？
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2010/8/24 9:55:00 [显示全部帖子]

For Each c As Col in Tables("xxx").Cols

     if c.DataCol.IsNumeric Then

        c.Width = 100 '100是希望的列宽

     End If

Next
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2010/8/24 12:21:00 [显示全部帖子]

呵呵，还是我来提供一个简单方法算了。
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2010/8/24 15:24:00 [显示全部帖子]

最佳方法：

 

For Each c As Col in Tables("xxx").Cols

     if c.DataCol.IsNumeric Then

        Tables("xxx").AutoSizeCol(c.name)

     End If

Next
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2010/8/24 20:46:00 [显示全部帖子]

更简单的代码是:

 

 

Tables("XXX").AutoSizeCols()
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2010/8/24 23:26:00 [显示全部帖子]

以下是引用易服在2010-8-24 23:23:00的发言：

Tables("XXX").AutoSizeCols()

自动列宽即一列中以最宽单元格作为列宽，当列标题较宽而单元格内容较少时，列标题显示不完全（不好看）需要手工调整。

 

升级到今天的更新
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2010/8/25 7:48:00 [显示全部帖子]

以下是引用liuruihua在2010-8-25 7:44:00的发言：

可以达到预期效果，只是感觉一是统计速度变慢约2-3秒(如果数据量更大可能更慢)，二是屏闪明显。

 

用这个：

Tables("XXX").AutoSizeCols
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04980 秒, 5 次数据查询