ADOTable Summe

[Bummi]

Entweder bin ich noch sehr müde, oder Dein Code ist sinnfrei.....

Delphi-Quellcode:

var
KA_SUMME: Double;
begin
   ADOTable1.First;
   KA_SUMME := 0;
   While not ADOTable1.EOF do
     begin
      KA_SUMME := KA_SUMME + ADOTable1KA.asFloat; // oder KA_SUMME := KA_SUMME +  ADOTable1.FieldByName(KA).asFloat
      ADOTable1.Next;
     end;
end;

Du könntest das Summenfeld an ein zweites Adodataset hängen mit

Code:

Select SUM(KA) from Tabelle where Bedingung

und bei jeder Änderung an Deiner Tabelle mit Requery aktualisieren