以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]触发条件后执行自动列宽的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194588)

--  作者:外贸小白
--  发布时间:2024/12/25 9:32:00
--  [求助]触发条件后执行自动列宽的代码

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

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

--  作者:有点蓝
--  发布时间: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


--  作者:外贸小白
--  发布时间:2024/12/25 10:14:00
--  
谢谢可以了!
但是这个字符超过35,列宽增加了,增加以后又删除字符,字符数少了,但是列宽不会自动减小

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

--  作者:有点蓝
--  发布时间:2024/12/25 10:17:00
--  
去掉代码里字符长度的判断
--  作者:外贸小白
--  发布时间:2024/12/25 10:18:00
--  
好的,多谢,我去试试