主题：自动行高

 你想根据哪一列的内容调整行高？或者你改成，afterEdit

Dim t As Table = e.Table
Dim  cname As String = e.Col.name
Dim lc As Integer = t.cols(cname).index+1
Dim br As Integer = e.Row.index+t.HeaderRows
t.grid.AutoSizeRows(0, lc, br, lc, 0, 0)