Здравствуйте ребята . Хочу делать вычисляемые поля из 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 .
Пожалуйста может кто то разбирал уже такого