Eine mögliche Vorgehensweise wäre:
Delphi-Quellcode:
function TForm1.ZuMinusAb: integer;
var
summeZu, summeAb: integer;
begin
with IBQuery3
do
begin
// Summe ZU berechnen
SQL.Text := '
SELECT SUM(menge) FROM listedza WHERE VORGANG = ''
UZU''
';
Open;
summeZu := Fields[0].AsInteger;
// Summe AB berechnen
SQL.Text := '
SELECT SUM(menge) FROM listedza WHERE VORGANG = ''
FAB''
';
Open;
summeAb := Fields[0].AsInteger;
Close;
Result := summeZu - summeAb;
end;
end;
Deine Differenzberechnung würde ich nicht im OnChange-Ereignis eines Edit-Feldes machen, da bei jedem einzelnen Zeichen, das du dort eingibst, das Ereignis gefeuert wird.
Grüße vom marabu