定位记录，删除后定位到下一条记录上

定位记录，删除后定位到下一条记录上

procedure TFrm_yaopinzidian.DBGridEh1CellClick(Column: TColumnEh);
begin

　　ADOQuery_Select.Next; //向下移动一条记录，再移动回去
　　LocateRecord_next:=ADOQuery_Select.FieldValues['cpid'] ;
　　ADOQuery_Select.Prior;end.

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/lantianhf/p/5067423.html