自动行高
Dim g As object = e.Form.Controls("RecordGrid1").BaseControlg.AutoSizeRows
设置某行
Dim g As object = e.Form.Controls("RecordGrid1").BaseControlg.Rows(2).Height = 50