xxbesoxx
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
вычисляемые поля работает не правильно . ребята пожалуйста если кто то сможет помочь .
Price
3,50
2,60
Quantity
2
3
5
Если Price * Quantity неправильно читает
Добавлено:
Вот первый пример .... НЕ РАБОТАЕТ, ПОКАЗЫВАЕТ НЕ ПРАВИЛЬНЫЙ ОТВЕТ
Код: procedure TForm1.cxDBPivotGrid1Field1CalculateCustomSummary(
Sender: TcxPivotGridField; ASummary: TcxPivotGridCrossCellSummary);
var
a , b: Double;
begin
a := ASummary.Owner.GetSummaryByField(cxDBPivotGrid1UnitPrice, stSum);
b := ASummary.Owner.GetSummaryByField(cxDBPivotGrid1Quantity, stSum);
cxDBPivotGrid1Field1.DataBinding.ValueType := 'Float';
ASummary.Custom := a * b; |
2 . Тоже не раб...
Код: procedure TForm1.cxDBPivotGrid1Field1CalculateCustomSummary(
Sender: TcxPivotGridField; ASummary: TcxPivotGridCrossCellSummary);
begin
ASummary.Custom := ASummary.Owner.GetSummaryByField(cxDBPivotGrid1Quantity, stSum) *
ASummary.Owner.GetSummaryByField(cxDBPivotGrid1UnitPrice, stSum) ;
end; |
3.
Код: function VarToInteger(const AValue: Variant): Integer;
begin
Result := 0;
if not VarIsNull(AValue) then // Функция для вычисл......
Result := AValue;
end;
//---------------------------------------------------------
procedure TForm1.cxDBPivotGrid1Field1CalculateCustomSummary(
Sender: TcxPivotGridField; ASummary: TcxPivotGridCrossCellSummary);
var
a, b : integer;
begin
a:= VarToInteger(ASummary.Owner.GetSummaryByField(cxDBPivotGrid1UnitPrice, stSum));
b:= VarToInteger(ASummary.Owner.GetSummaryByField(cxDBPivotGrid1Quantity, stSum));
if a <> 0 then
ASummary.Custom := a * b;
|
Ребята пожалуйста помогите, мне надо делать вычисляемые поля ( Price * Quantity ) |
