主题：[求助]如何返回当前行的行高

 mark MeasureString

Dim cwidth As Integer = iif(e.Col.Width=-1, 98, e.Col.Width)
Dim cheight As Integer = e.Table.Grid.Rows(e.Row.Index+1).height
cheight = iif(cheight = -1, 20, cheight)
Dim msg As String = e.Row(e.Col.name)
Dim gc = basemainform.CreateGraphics
Dim size = gc.MeasureString(msg, e.Table.Font)
If size.width > cwidth OrElse size.Height > cheight Then
    e.Table.ShowToolTip(e.Row(e.Col.name),e.Row,e.Col)
End If