Unendlichschleife?

[Taladan]

Ich greif nur einmal auf die Tabelle zu. Es funktioniert trotzdem nicht. Da bleib ich lieber bei der herkömmlichen methode.

Obwohl ich selbiges jetzt mit einen Query gelöst habe, bleibt das problem das ich eine unedlichschleife hab.

Delphi-Quellcode:

procedure TFormGehaltsliste.berechnen;
var sum : currency;
    nummer : integer;
begin
   hauptform.table1.autocalcfields := false;
   hauptform.table6.First;
   while not hauptform.table6.eof do hauptform.table6.delete; //wenn ich diese zeile 
   hauptform.table1.first;
   while not hauptform.table1.eof do begin
    //in diese schleife packe, bekomme ich keine endlosschleife. Leider ist dann aber auch nur der letzte datensatz drin :cry: 
      sum := 0;
      while not hauptform.query2.eof do begin
        sum := hauptform.query2.fieldbyname('betrag').ascurrency + sum;
        hauptform.query2.next;
      end;
      hauptform.table6.append;
      hauptform.table6verteiler.value := hauptform.query2verteiler.value;
      hauptform.table6gehalt.value := sum;
      hauptform.table6.post;
      hauptform.table1.next;
      showmessage(hauptform.table1zhler.asstring);
   end;
   hauptform.table1.autocalcfields := true;
end;

Ich vermute, das das Problem in den autocalcfields liegt. Deshalb hier der Code. Denn wenn ich diese Anweisungen in {} setze also nicht ausführen lasse, funktioniert es, wie es soll. Warum führt er überhaupt noch diese anweisungen aus, obwohl ich autocalcfields auf false gesetzt habe?

Delphi-Quellcode:

procedure THauptform.Table6CalcFields(DataSet: TDataSet);
var i : integer;
begin
     if not (table6verteiler.value = 0) then begin
      i := table6verteiler.value;
      table1.setkey;
      table1.fieldbyname('Zähler').asInteger := i;
      table1.gotokey;
      table6verteilername.value := table1name.value +  ', ' + table1vorname.value;
      table6strasse.value := table1.fieldbyname('straße').value +  ' ' +table1hausnummer.value;
      table6strasse.value
     end;
end;