VB-解决mshflexgrid 不能删除最后一条记录的问题

If Rs.RecordCount = 1 Then’如果是最后一条记录

For I = 0 To 4 ‘将Mshflexgrid的最后一条记录置为空

RouteGrid.TextMatrix(1, i) = “”

Next

Else

RouteGrid.RemoveItem (RouteGrid.RowSel)

End If

sql = “delete from iproute where id=” /从数据库删除

Cnn.Execute sql

Rs.Requery