有代码自动行高吗？或者重新加载表属性？想要输入了数...

微信用户_62

有代码自动行高吗？或者重新加载表属性？想要输入了数据在不立即保存刷新的情况下自动行高

admin

1. Dim tbl As SmGrid=Proj.CurrentSmGrid
   
2. '将整个表自动行高
   
3. tbl.AutoSizeRows()
   
4. '将列标题下面第二行设置为自动行高
   
5. tbl.AutoSizeRow(tbl.Rows.Fixed+1)
   
6. '如果当前行合法数据范围
   
7. If tbl.Row>=tbl.Rows.Fixed AndAlso tbl.Row<tbl.Rows.Count Then
   
8.         '将当前行设置为自动行高
   
9.         Proj.CurrentSmGrid.AutoSizeRow(Proj.CurrentSmGrid.Row)
   
10. End If

复制代码