Не догоняю я никак....
Вот первый запрос
Код:
A1:=STRTOINT(FORM2.Edit1.Text);
ADOQUERY1.Close;
ADOQUERY1.SQL.Text:='select S, OTD, DATA_POS, FIO, SUMMA, VAL, SD_V_KL, SD_V_CBU '+
'FROM INKASSO '+
'WHERE OTD=:A1 AND SD_V_KL<>1 AND SD_V_CBU<>1';
ADOQUERY1.Parameters[0].Value:=A1;
ADOQUERY1.Open;
Теперь нужно из первого запроса подсчитать сумму по полю 'SUMMA' where 'VAL' =30 as 30 и 'VAL' =40 as 40
AS 30 и AS 40 нужны, чтобы потом эти суммы показать в EDIT