主题：[求助]如何消除自动调整行高后显示的多余选定区域——已解决

If vars("a") <> -1 '如果选择的是不同的行

  If vars("a") >= 0 AndAlso vars("a")< e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行

    Dim size As Integer = e.Table.Font.Size '取得当前表的字体大小

    e.Table.grid.Rows(vars("a")+ e.Table.HeaderRows).height = 2 * size + 2 '设置原来行的行高

    e.Table.AutoSizeRow(e.Row.Index) '自动调整当前行的行高

  End If

End If