[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;