brookson
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
народ, помогите переложить с одного языка на другой (кажется девки имеют для различных языков разный набор функций и свойств, или я не прав??).
нашёл на сайте поддержки пример почти как у меня:
http://www.devexpress.com/Support/Center/p/Q94859.aspx
разница лишь в том, что у меня есть Total Sum, Total Average, а мне надо вывести процент в третьем Total-e (Custom), базируясь на Total (Sum) и grand total для данной строки этого же столбца.
Вышел из положения с помощью такого вот кода, но мне он не нравится (SUMSERV - это столбец, в для которого всё считается, а всего есть 2 столбца faData):
Код: procedure TF_REPORTS.SUMSERVGetDisplayText(Sender: TcxPivotGridField;
ACell: TcxPivotGridDataCellViewInfo; var AText: string);
var
a1, a2: double;
begin
begin
if GridZV2F.ViewData.RowCount<2 then exit;
if acell.IsTotal then begin
if acell.SummaryType=stCustom then begin
if gridZV2F.ViewData.CellsAsText[acell.RowIndex-2,acell.ColumnIndex]='' then
a1:=0
else
a1:=strtofloat(gridZV2F.ViewData.CellsAsText[acell.RowIndex-2,acell.ColumnIndex]);
if gridZV2F.ViewData.CellsAsText[acell.RowIndex-2,GridZV2F.ViewData.ColumnCount-2]='' then
a2:=0
else
a2:=strtofloat(gridZV2F.ViewData.CellsAsText[acell.RowIndex-2,GridZV2F.ViewData.ColumnCount-2]);
atext:=floattostr(round(a1*100/a2))+'%';
end;
end;
|
очень уж не даёт покоя это GetRowGrandTotal. было бы как раз то, что нужно. |
Всего записей: 139 | Зарегистр. 06-09-2007 | Отправлено: 17:31 01-03-2009 | Исправлено: brookson, 17:35 01-03-2009 |
|
