以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动行高不起作用  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145011)

--  作者:tld
--  发布时间:2020/1/6 8:13:00
--  自动行高不起作用
老师,我用了论坛中老师的代码自动调整行高,代码如下:
If e.Col.Name="委托单位" Then
    Dim t As Table = e.Table
    Dim  cname As String = e.Col.name
    Dim lc As Integer = t.cols(cname).index+1
    Dim br As Integer = e.Row.index+t.HeaderRows
    t.grid.AutoSizeRows(0, lc, br, lc, 0, 0)
End If
没有效果,是怎么回事?  谢谢!
此主题相关图片如下:捕获.png
按此在新窗口浏览图片

--  作者:有点蓝
--  发布时间:2020/1/6 8:25:00
--  
参考这个用法:http://www.foxtable.com/webhelp/topics/1564.htm
--  作者:tld
--  发布时间:2020/1/6 11:00:00
--  
老师,我试了,还是不行
图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

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

--  作者:有点蓝
--  发布时间:2020/1/6 11:20:00
--  
如果是使用代码给单元格赋值的,或者是在窗口编辑的,把代码改改放到datacolchanged事件
--  作者:tld
--  发布时间:2020/1/6 11:52:00
--  
在datacolchanged事件中也不行啊
图片点击可在新窗口打开查看此主题相关图片如下:捕获1.png
图片点击可在新窗口打开查看

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

--  作者:有点蓝
--  发布时间:2020/1/6 11:57:00
--  
If e.dataCol.Name = "备注" Then
   
Tables(e.datatable.name).AutoSizeRow(
Tables(e.datatable.name).findrow(e.datarow))
End
 
If
--  作者:tld
--  发布时间:2020/1/6 13:35:00
--  
蓝老师,还是不行,没有反应。是版本的问题吗?我的是2019版



--  作者:有点蓝
--  发布时间:2020/1/6 14:19:00
--  
和版本无关。上传实例说明
--  作者:tld
--  发布时间:2020/1/6 23:18:00
--  
老师,自动换行后自动调整行高,有没有完整的资料可供学习?我在论坛上搜索后,也找不到实现的方法。谢谢
--  作者:有点蓝
--  发布时间:2020/1/6 23:22:00
--  
请上传实例说明问题

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.zip