Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教如何使用代码 让整个表的列宽根据内容长度自动调整


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

主题：[求助]请教如何使用代码 让整个表的列宽根据内容长度自动调整
帅哥哟，离线，有人找我吗？
竑凯
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：60 积分：516 威望：0 精华：0 注册：2016/7/21 20:55:00 		[求助]请教如何使用代码 让整个表的列宽根据内容长度自动调整  发帖心情 Post By：2023/1/7 17:47:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：131.png
图片点击可在新窗口打开查看

这是软件汇总数据默认出来的数据  很占位置


图片点击可在新窗口打开查看此主题相关图片如下：132.png
图片点击可在新窗口打开查看

这是双击表最左上角  自动根据内容调整列宽后的效果  就很美观了  

请教下 这种效果要用代码实现应该怎么写？  另外半成品信息那些列  想内容默认居中 应该怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
竑凯
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：60 积分：516 威望：0 精华：0 注册：2016/7/21 20:55:00 		  发帖心情 Post By：2023/1/8 13:47:00 [只看该作者]

顶贴 请教图片点击可在新窗口打开查看

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


加好友 发短信
等级：超级版主 帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/1/8 19:31:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
竑凯
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：60 积分：516 威望：0 精华：0 注册：2016/7/21 20:55:00 		  发帖心情 Post By：2023/1/9 12:45:00 [只看该作者]

这个我找到了  多谢！  帮助经常看 就是经常想找内容的时候找不到  第二天在搜索下又能找到！   

搜索有什么技巧吗？
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2023/1/9 12:50:00 [只看该作者]

技巧就是多看帮助。

 回到顶部
帅哥哟，离线，有人找我吗？
wky10652008
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：223 积分：3033 威望：0 精华：0 注册：2017/4/23 19:43:00 		可参考以下代码  发帖心情 Post By：2023/1/11 21:54:00 [只看该作者]

'自动调整列列宽,并排除指定列
Dim Names As New List(Of String) '定义一个集合,记录当前表的列名
For Each c As Col In CurrentTable.Cols
    Names.Add( c.Name) '将列名称添加到集合中
Next 
For Each Name As String In Names 
    If Name = "第十列" Or Name = "第八列" Then '不需要自动调整列宽的列名
        '什么也不操作
        Else 
        CurrentTable.AutoSizeCol(Name)'自动调整列宽
    End If 
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询