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

Question

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

Answer 1

Just keep and reset Recno

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

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

an example implementation for usage with DBNavigator could be

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;