Nach Löschen Positionen neu durchnummerieren

[LOMBI]

Hallo,

Rechnungspositionen lösche ich mit:

Delphi-Quellcode:

procedure TFRechnungen.DBGridRechnungsdatenDblClick(Sender: TObject);
begin
  if MessageDlg('Diese Position wirklich löschen?', mtWarning,
                [mbYes, mbNo], 0)= mrYes then
  QueryRechnungsdaten.Delete;
end;

Wie erreiche ich bitte, dass nach dem Löschen einer Position
die PosNrn neu durchnummeriert werden?

Besten Dank für Hilfe!

Gruß
Lombi

[mkinzler]

Die Frage ist doch eher, ob man das machen sollte (PK löschen).

[shmia]

Delphi-Quellcode:

p := 1;
QueryRechnungsdaten.first;
while not QueryRechnungsdaten.Eof do
begin
   QueryRechnungsdaten.Edit;
   QueryRechnungsdaten['Position'] := p;
   QueryRechnungsdaten.Post;
   inc(p);
   QueryRechnungsdaten.Next;
end;

[mkinzler]

Oder

SQL-Code:

update Rechnungen set pos = pos - 1 where ...