以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动行高  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78754)
--  作者：一笑
--  发布时间：2015/12/16 13:17:00
--  自动行高
在http://www.foxtable.com/help/index.html?n=0395.htm#userconsent#

自动行高

选择选项“自动调整行高”，然后选择根据哪些列的内容调整行高，单击“确定”。
调整之后，所有行的高度等于最高的那一行，如果希望各行分别调整行高，不要选择选项“相等行高”即可。


如果用代码实现，谢谢！

AutoSizeRows自动设置所有行高；
AutoSizeRow(Index)自动设置某一行的行高；
现在想自动设置某列中所有行的行高，代码该如何写？谢谢
--  作者：大红袍
--  发布时间：2015/12/16 14:21:00
--  
汗，没找到方法，等高手。
--  作者：一笑
--  发布时间：2015/12/16 14:33:00
--  
既然设置里面能实现，狐爸能否把代码放出来？
--  作者：大红袍
--  发布时间：2015/12/16 16:06:00
--  
顶顶....
--  作者：kittyzhang
--  发布时间：2016/3/11 11:31:00
--  
顶~~~真的想找到方法
--  作者：大红袍
--  发布时间：2016/3/11 13:53:00
--  
以下是引用kittyzhang在2016/3/11 11:31:00的发言：
顶~~~真的想找到方法

 

http://www.foxtable.com/help/topics/1564.htm

 
--  作者：大红袍
--  发布时间：2016/3/11 14:07:00
--  

可以试试代码

 

Dim gc As Graphics = BaseMainform.CreateGraphics()
Dim r As Row = Tables("表A").current
Dim size As SizeF = gc.MeasureString(r("第六列") , Tables("表A").Font)
Dim w As Integer = Tables("表A").cols("第六列").Width
If w = - 1 Then
    w = 98
End If
Tables("表A").grid.rows(r.index+1).height = Math.Ceiling(size.width / w) * (size.height +7)