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

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;