Здравствуйте ребята . Хочу делать вычисляемые поля из DBPivotGrid добавляю новое поля в DbPivot и из свойстве
OnCalculateCustomSummary пишу следующий код
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 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 .
Пожалуйста может кто то разбирал уже такого