以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】AutoSizeRows()函数问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133557)
--  作者：gaojianwu
--  发布时间：2019/4/16 14:48:00
--  【求助】AutoSizeRows()函数问题？
每次打开窗体，执行 Tables("表A").AutoSizeRows(),  但是表A中某一列内容非常多，我不希望它自动设置行高，那样就很难看。怎么解决这个问题？
--  作者：有点甜
--  发布时间：2019/4/16 15:27:00
--  

1-5列，设置行高

 

Dim t As Table = Tables("表A")
Dim lc As Integer = 1
Dim br As Integer = t.rows.count
Dim rc As Integer = 5
t.grid.AutoSizeRows(0, lc, br, rc, 0, 0)

--  作者：有点甜
--  发布时间：2019/4/16 15:28:00
--  

 

AutoSizeRows(起始行, 起始列, 结束行, 结束列, 0, 0)