Delphi DBPivotGrid Вычисляемые поля

[xxbesoxx]

Здравствуйте ребята.... Ест такой набор компонентов DevExpress , там ест такой DBPivotGrid .
задача такой ! Делать вычисляемые поля ( именно из DBPivotGrid ), там можно добавить поля и из свойстве OnCalculateCustomSummary написать арифметическая операция .

1.Начинаю делать, Простой запрос для тест . хочу UnitPrice * Quantity

select UnitPrice, Quantity , ProductID 
from [Order Details]

2. Добавляю столбцов из DBPivotGrid из свойства OnCalculateCustomSummary пишу

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;

end;

Читает не правильно http://img690.imageshack.us/img690/4216/m7ta.jpg Ребята пожалуйста, может кто знает почему читает неправильно , может вы можете помочь

Почему такой результат ? http://img547.imageshack.us/img547/7213/2bog.jpg

[xxbesoxx]

Тема можно закрыть .