Den Inhalt von 2 Tabelle mit einer Schleife ändern

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, robby3.

Das Setzen von Table.Active auf TRUE in deiner Schleife ist falsch, sollte aber ignoriert werden und keine Endlosschleife verursachen. Es entspricht einem Table.Open, welches du aber außerhalb deiner Schleife bestimmt schon gemacht hast, sonst würde FindNearest eine Exception werfen. Um deinen Verdacht auf eine Endlosschleife zu überprüfen kannst du die Kenndaten (Spaltenwert pos) der die Schleife steuernden Query im StatusBar zusammen mit einem Satzzähler ausgeben. Beim bloßen Anschauen deines Codes kann ich aber keine Endlosschleife erkennen.

Grüße vom marabu

PS: Im Prinzip funktionieren die folgenden SQL statements in LOCALSQL.

SQL-Code:

update lager 
  set stueck = (select stueck from qmin where lager.pos = qmin.pos)
  where exists (select pos from qmin where qmin.pos = lager.pos)

insert into lager select * from qmin 
  where not exists (select pos from lager where lager.pos = qmin.pos)