Edit Zahl nach DBEDIT kopieren

[blondervolker]

Komme nicht weiter...

bekomme von einer Datenbank ADOTable4 die jeweiligen Endsummen in Editfeldern angezeigt.
ADOTable4 und ADOTable6 sind miteinander verknüpft.
In der ADOTable6 wird nur immer 1 Datensatz angezeigt als Endsumme.
Diese versuche ich nun vergebens in eine ADOTable 6 als Endsummen in mehren DBEeldern anzuzeigen.
Mal werden ein paar Endsummen angzeigt und mal wieder nicht...

Delphi-Quellcode:

procedure TForm1.Summe1Click(Sender: TObject);
var
KA_ANZAHL,KA_SUMME,KA_ABZUG,KA_PREIS,KA_NFA,KA_ZWSCHISUM,KA_SUM_MWST,KA_ENDSUM: Double;

begin
   ADOTable4.First;
   KA_ANZAHL := 0;
   KA_SUMME := 0;
   KA_ABZUG := 0;
   KA_PREIS := 0;
   KA_NFA   := 0;
   KA_ZWSCHISUM := 0;
   KA_SUM_MWST := 0;
   KA_ENDSUM := 0;
   While not ADOTable4.EOF do
     begin
      KA_ANZAHL := KA_ANZAHL + ADOTable4.FieldByName('KA_ANZAHL'). asFloat ;
      KA_SUMME := KA_SUMME + ADOTable4.FieldByName('KA_SUMME'). asFloat ;
      KA_ABZUG := KA_ABZUG + ADOTable4.FieldByName('KA_ABZUG'). asFloat ;
      KA_PREIS := KA_PREIS + ADOTable4.FieldByName('KA_PREIS'). asFloat ;
      KA_NFA := KA_NFA + ADOTable4.FieldByName('KA_NFA'). asFloat ;
      KA_ZWSCHISUM := KA_ZWSCHISUM + ADOTable4.FieldByName('KA_ZWSCHISUM'). asFloat;
      KA_SUM_MWST := KA_SUM_MWST + ADOTable4.FieldByName('KA_SUM_MWST'). asFloat ;
      KA_ENDSUM := KA_ENDSUM + ADOTable4.FieldByName('KA_ENDSUM').asFloat;
      ADOTable4.Next;

      
      // wird alles sauber angezeigt :
      Edit11.Text:= FormatFloat('0.00',KA_ANZAHL);
      Edit12.Text:= FormatFloat('0.00',KA_PREIS);
      

 //Endsumme in die ADOTable6 einfügen:


Edit11.SelectAll;
Edit11.CopyToClipboard;//Anzahl
DBEdit89.PasteFromClipboard;// Anzahl
DBEdit89.Field.Value :=RoundTo( DBEdit89.Field.AsFloat, -2 );
Clipboard.Clear;
Edit12.SelectAll;//Preis
Edit12.CopyToClipboard;//Preis
DBEdit90.PasteFromClipboard;//Preis
DBEdit90.Field.Value :=RoundTo( DBEdit90.Field.AsFloat, -2 );
ADOTable6.Post;
Clipboard.Clear;
end;
end;
//Habe gerundet weil permanent eine Fehlermeldung kam:oops::oops::oops: