[gewasop]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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;