删除并刷新DBgrid中的记录，其中u保持相同的位置

Question

我有一个小型数据库我正在使用dbgo，我有一个DBgrid显示我的记录，我需要知道如何删除记录并刷新数据库，其中索引箭头保持在相同位置或至少转到下一个？但是目前我的索引箭头每次刷新时都从头开始跳转！

Answer 1

保持并重置Recno

var
I:Integer;
.......

I := Ads.Recno;
Ads.Delete;
Ads.Recno := I;

用于DBNavigator的示例实现可以是

Procedure DeleteAndKeepRecno(Ads: TCustomAdoDataset);
var
  rn: Integer;
begin
  rn := Ads.RecNo;
  Ads.Delete;
  Ads.RecNo := rn;
end;

procedure TForm4.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbDelete then
  begin
    DeleteAndKeepRecno (TCustomAdoDataset(TDBNavigator(Sender).DataSource.DataSet));
    Abort;
  end;
end;