[xxbesoxx]

Здравствуйте ребята . Хочу делать вычисляемые поля из DBPivotGrid добавляю новое поля в DbPivot и из свойстве OnCalculateCustomSummary пишу следующий код

Код:

procedure TForm1.cxDBPivotGrid1Field1CalculateCustomSummary(
  Sender: TcxPivotGridField; ASummary: TcxPivotGridCrossCellSummary);
var
  a, b, c : Double;

begin
    a := ASummary.Owner.GetSummaryByField(cxDBPivotGrid1cena1, stSum);
    b := ASummary.Owner.GetSummaryByField(cxDBPivotGrid1cena2, stSum);
    cxDBPivotGrid1Field1.SummaryType := stCustom;
    cxDBPivotGrid1Field1.DataBinding.ValueType := 'Float';
   if a <> 0 then
    ASummary.Custom :=  a * b
      else
    ASummary.Custom := 0
end;

в примере создал таблица в Access там ( cena1 и cena2 ) тип денежный . Хочу cena1 * cena2 .

Пожалуйста может кто то разбирал уже такого