以文本方式查看主题 -  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 --   测试没发现有什么问题，上传实例看看