[Lektor]

Как мне посчитать сумму вычисляемых полей в таблице(ADOQuery) и вывести в TEdit?
И как мне посчитать сумму другой таблицы(ADOQuery) и вывести в TEdit не отображая её?

[FLiNT]

Попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
var summa : integer;
begin
summa := 0;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
summa := summa + ADOQuery1Vich_Pole.Value;
ADOQuery1.Next;
end;
Edit1.Text := intTostr(summa);
end;

[Lektor]

спасибо вроде работает!