[gewasop]

Ае почаны. Научите складывать. Нужно сложить все значения полей PRICE в дочерней таблице и занести эту сумму в главную таблицу.
Я правильно понял поле PRICE в главной таблице нужно делать вычисляемым? А что делать потом? Какими ивентами пользоваться и т.д.? Чето вообще незнаю. Буду благодарен, если поможете сделать все это дело для моего примера.

Firebird
Delphi XE7
Таблицы выводятся через Query.
Название компонентов:
-Таблица(главная) OOC - QOOC
-Таблица(дочерняя) OOC_MC - QOOC_MC
QOOC_MC связанна с QOOC через MasterFields с полями ID_OOC в главной и дочерней таблицах.

[lmikle]

Считай в запросе главной таблицы (если это только отображение):

Код:

SELECT m.*, sum(d.price) as PRICE
from master_table m left join detail_table d on m.id = d.master_id
group by m* -- здесь перечислить поля галвной табл

Если есть редактирование подч. табл. или не хочется перечислять все поля, то надо делать вычисляемое поле и в OngetData (или OnCalculate, не помню точно как), надо пройтись по подчиненной таблице и ручками все сложить.

[gewasop]

Ток сделал и увидел твой пост. Сделал подругом немного. Незнаю на сколько правильно, но пока все работает. Просто сам SQL не особо знаю, раньше не имел дело с ним.

Код:

procedure Tfdm.QOOCCalcFields(DataSet: TDataSet);
var
  tmpc: string;
begin
  tmpc := QOOC.FieldByName('ID_OOC').AsString;
  qqry.SQL.Clear;
  qqry.SQL.Add('SELECT SUM(PRICE) FROM OOC_MC WHERE ID_OOC=' + Trim(tmpc));
  qqry.Open;
  if qqry.Fields[0].AsString <> '' then
    QOOC.FieldByName('PRICE').Value := qqry.Fields[0].AsString;
end;