保存或删除后，停留在当前行

 

保存后，停留在当前行

 

bNewRecord = DBEngine.IsNewRecord

 

if DBEngine.SaveRecord() = true then

 

'保存后,要从数据库更新当前行数据

 

if bNewRecord <> true then '保存修改

 

    DBGrid14.UpdateCurRecordFromServer(DBEngine.GetCurRecordSQLWhere())

 

else '保存新增记录

 

  DBGrid14.UpdateFromDataSourceUrl("")

 

  DBGrid14.SelectRow(DBGrid14.GetRowCount()-1)

 

 

         end if

 

end if