如果默认设置routegrid.fixedrows=1,那么删除最后一条记录的时候就会提示出错”can not move last non-fixed row”
解决方法如下:
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
…
转载请注明 :IT樵客

