Foxtable(狐表)用户栏目专家坐堂 → [求助]触发条件后执行自动列宽的代码


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

主题:[求助]触发条件后执行自动列宽的代码

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


加好友 发短信
等级:婴狐 帖子:9 积分:126 威望:0 精华:0 注册:2024/12/23 9:06:00
[求助]触发条件后执行自动列宽的代码  发帖心情 Post By:2024/12/25 9:32:00 [只看该作者]


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

如果想设置某一列默认初始列宽为288,此时大概可以显示35个字符,如果字符数量超过35,则自动调整列宽,否则列宽保持默认值
请问代码该如何写

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/25 9:43:00 [只看该作者]

datacolchanged事件代码设为:


If e.dataCol.Name = "contents" Then

if e.newvalue > "" andalso e.newvalue.length > 35 then
   
Tables(e.datatable.name).
AutoSizeCol(e.dataCol.Name)

end if
End
 
If


 回到顶部
帅哥哟,离线,有人找我吗?
外贸小白
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:126 威望:0 精华:0 注册:2024/12/23 9:06:00
  发帖心情 Post By:2024/12/25 10:14:00 [只看该作者]

谢谢可以了!
但是这个字符超过35,列宽增加了,增加以后又删除字符,字符数少了,但是列宽不会自动减小

或者简单一点说,如何能让列宽随字符数多少自动调整?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/25 10:17:00 [只看该作者]

去掉代码里字符长度的判断

 回到顶部
帅哥哟,离线,有人找我吗?
外贸小白
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:126 威望:0 精华:0 注册:2024/12/23 9:06:00
  发帖心情 Post By:2024/12/25 10:18:00 [只看该作者]

好的,多谢,我去试试

 回到顶部