[Lost_Fish]

намучено у тебя))

ADOTable при калькулировании не скролит таблицу в связи с чем будем сами скролить

отвязываешь ADOTable2 от МастерСурс в обработчик ADOTable4AfterScroll пихаешь

Код:

		ADOTable2.Filter:='Key1='+VarToStr(ADOTable4['ID']);
    	ADOTable2.Filtered:=True;

а в ADOTable4CalcFields

Код:

	ADOTable2.Filter:='Key1='+VarToStr(ADOTable4['ID']);
    ADOTable2.Filtered:=True;
y:=0;
While not ADOTable2.Eof do
begin
x:=ADOTable2['Ñóììà ïî ñ÷åòó'];
y:=x+y;
ADOTable2.Next;
end;

ADOTable4schet.Value:=y;