以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于自动行高  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160924)

--  作者:一丁
--  发布时间:2021/2/26 14:55:00
--  [求助]关于自动行高
请教:如何不使用系统命令Syscmd.Row.Height(),根据某一列的内容来设置自动行高?Table的AutoSizeRow,AutoSizeRows命令都是根据所有可见列的内容来设置自动行高,无法根据指定列来设置。


--  作者:有点蓝
--  发布时间:2021/2/26 15:14:00
--  
要手工计算:

Dim r As Row = Tables("表B").Current
Dim g As Graphics = basemainform.CreateGraphics
Dim size As Object
size = g.MeasureString(r(Tables("表B").ColSel), Tables("表B").Font, Tables("表B").grid.Cols(Tables("表B").ColSel+1).WidthDisplay)
Tables("表B").grid.Rows(r.Index + 1).Height = size.height+5


--  作者:一丁
--  发布时间:2021/2/26 15:17:00
--  
 谢谢蓝版
--  作者:一丁
--  发布时间:2021/2/26 15:53:00
--  
 好像在排序状态下不能使用,出来的结果很奇怪
--  作者:有点蓝
--  发布时间:2021/2/26 16:13:00
--  
测试没发现有什么问题,上传实例看看