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


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

主题:[求助]请教如何使用代码 让整个表的列宽根据内容长度自动调整

帅哥哟,离线,有人找我吗?
wky10652008
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:230 积分:3104 威望: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

 回到顶部