主题：请教：删除多条记录后行高问题。

具体见附件。

问题描述：

一、在项目打开后事件中使用以下代码，增大行高度。

Tables("表A").AutoSizeHeaderRow
Tables("表A").grid.Rows(0).height = Tables("表A").grid.Rows(0).heightdisplay + 5
For i As Integer = 1 To Tables("表A").grid.Rows.Count - 1
    Tables("表A").grid.Rows(i).height = Tables("表A").grid.Rows(0).height
Next

二、问题如下：执行菜单中的删除按钮

1、选中1条记录时，删除后其他记录行高度未改变；

2、选中多条记录时，删除后其他记录行高恢复到原始高度。就算在删除后事件中使用以上增大行高的代码也未奏效。

想达到删除多条记录后的行高不受影响，请教怎么搞？谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:行高测试.table