//podaj do Edit sumę wartości z kol. KWOTA w tab. KOSZTY
procedure TForm1.Button1Click(Sender: TObject);
begin
with IBQuery1, SQL do
begin
Close;
Clear;
Add('SELECT SUM (KWOTA) FROM KOSZTY');
Open;
Edit1.Text:=IBQuery1.Fields[0].AsString;
Clear;
Add('SELECT * FROM KOSZTY');
Open;
end;
end;
Kod sumuje wartości w polu KWOTA, wynik podaje w Edit1, a potem pokazuje na nowo całą tabelę.
Kod działa super do momentu, gdy w Editor Fields komponentu IBQuery dodam pola do listy (poprzez kliknięcie Add All Fields). Tymi polami są: NR, LP, KWOTA.
Wie ktoś o co chodzi i jak to naprawić?