Добрый день.

Добрый день. Есть форма в виде таблицы с несколькими столбцами. Столбцы заполняются из БД. В следующем после MasterData1 бенде вывожу сумму по столбцам. Все работает. В самом же бэнде masterdata1 дабавляю еще один столбец, который должен считаться как знач.в стрке столбец1/сумму столбца 1+столбец 4/сумму столбца 4 - знач в строке 6/сумму столбца 1

Как мне взять эту сумму из memo в бенде ниже. Сумма высчитывается же уже после того, как считается нужное значение формулы выше. Идея в переменную передавать значение memo с суммой, а потом в выражении делить на эту переменную. Как сделать? просьба не пинать сильно....

Таблица выглядит следующим образом:

GroupHeader1

значение

GroupHeader2

значение

MasterData1

Memo1 Memo2 Memo3 Memo4

GroupFooter1

Memo5 Memo6

________________________________________________

Mem1-3 берутся из базы, Memo5 = сумма по столбцу Memo1, Memo6 = сумма по столбцу Memo2.

Нужно высчитать Поле Memo4 = знач из строки Memo1/значение из Memo5 + знач из строки Memo2/значение из memo6 - знач из Memo3/знач из Memo5

Получается, что значение из поля memo5 и memo 6 нужно вроде загнать в переменные например sum1 и sum2, а потом в формулу выше уже можно вставить деление на эту sum1 и sum2, где это нужно. Как взять это все и подставить куда надо, загнать в переменные.

Получил так, работает :)

CODE:

var
s1 : integer;
s2 : integer;

procedure SumCalc;
begin
QDetail.Open;
QDetail.First;
s1 := 0;
s2 := 0;
while (not QDetail.eof) do
begin
s1 := s1 + QDetail.FieldByName('QTYTASK').AsInteger;
s2 := s2 + QDetail.FieldByName('QTYGOODS').AsInteger;
QDetail.next;
end;
Set('sum1', s1);
Set('sum2', s2);

end;

begin
SumCalc;
end.

В шаблоне в нужной ячейке уже подставил нужную формулу и применял полученные переменные