比如代码
Dim t as table = tables("表A")Dim h As Double = t.grid.height / (t.rows.count+1)
t.DefaultRowHeight = h