Foxtable(狐表)用户栏目专家坐堂 → [求助]关于自动行高


  共有1911人关注过本帖树形打印复制链接

主题:[求助]关于自动行高

帅哥哟,离线,有人找我吗?
一丁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2814 威望:0 精华:0 注册:2017/9/14 8:21:00
[求助]关于自动行高  发帖心情 Post By:2021/2/26 14:55:00 [只看该作者]

请教:如何不使用系统命令Syscmd.Row.Height(),根据某一列的内容来设置自动行高?Table的AutoSizeRow,AutoSizeRows命令都是根据所有可见列的内容来设置自动行高,无法根据指定列来设置。


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
一丁
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2814 威望:0 精华:0 注册:2017/9/14 8:21:00
  发帖心情 Post By:2021/2/26 15:17:00 [只看该作者]

 谢谢蓝版

 回到顶部
帅哥哟,离线,有人找我吗?
一丁
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2814 威望:0 精华:0 注册:2017/9/14 8:21:00
  发帖心情 Post By:2021/2/26 15:53:00 [只看该作者]

 好像在排序状态下不能使用,出来的结果很奇怪

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/26 16:13:00 [只看该作者]

测试没发现有什么问题,上传实例看看

 回到顶部