[brusel]

Здраствуйте. Есть DBGridEh с полями А и Б.
Поле Б вычисляемое, должно считатся так: Б=А/Сумма(всех А)

Пробовал так выдает ошибку.

Код:

procedure TVagaCalcFields(DataSet: TDataSet);
begin
TVagaB.Value:=TVagaА.Value/StrtoFloat(FVaga.DBGridEh1.Columns[1].Footers[0].SumValue);
end;

[brusel]

Код:

procedure TDM.TVagaCalcFields(DataSet: TDataSet);
var
i:integer;
begin
dm.QuerySum.Open;
i:= dm.QuerySum.Fields[0].AsInteger;  //заносим  сумму в переменную i
dm.QuerySum.Close;
dm.TVagaZ_posl.Value:=dm.TVagaKol.Value*dm.TVagaKol_god.Value;
dm.TVagaPyt_vag.Value:=RoundEx((dm.TVagaKol.Value/i),100);
end;