Cross tab component
How can I apply custom format for the fields in a crosstab report ?
I figured out how to do it in the Total(s) value using the
OnGetTotalValueText as follow:
procedure TfmTotalMonthlyAllLocations.ppCrossTab1GetTotalValueText(
Sender: TObject; aElement: TppElement; aColumn, aRow: Integer;
const aDisplayFormat: String; aValue: Variant; var aText: String);
begin
aText := FloatToStrF(aValue, ffCurrency,15,2);
end;
But how to do it on the other values that are not grand totals ?
I looked at the GetValueText but I don't know how to identify the related
field
procedure TfmTotalMonthlyAllLocations.ppCrossTab1GetValueText(
Sender: TObject; aElement: TppElement; aColumn, aRow: Integer;
const aDisplayFormat: String; aValue: Variant; var aText: String);
begin
end;
Thanks a lot for any help.
CBenac
cbenac@bellsouth.net
I figured out how to do it in the Total(s) value using the
OnGetTotalValueText as follow:
procedure TfmTotalMonthlyAllLocations.ppCrossTab1GetTotalValueText(
Sender: TObject; aElement: TppElement; aColumn, aRow: Integer;
const aDisplayFormat: String; aValue: Variant; var aText: String);
begin
aText := FloatToStrF(aValue, ffCurrency,15,2);
end;
But how to do it on the other values that are not grand totals ?
I looked at the GetValueText but I don't know how to identify the related
field
procedure TfmTotalMonthlyAllLocations.ppCrossTab1GetValueText(
Sender: TObject; aElement: TppElement; aColumn, aRow: Integer;
const aDisplayFormat: String; aValue: Variant; var aText: String);
begin
end;
Thanks a lot for any help.
CBenac
cbenac@bellsouth.net
This discussion has been closed.
Comments
Just click the layout button.