Using dCube.ColHeading(lnis, lni)
support.dcube.vfp
Using dCube.ColHeading(lnis, lni)
10-24-2002, 12:00 AM
Originally Posted By: Farouk Yew Abdullah<tfyew@pc.jaring.my>
Hi all,
Can anyone spot what is wrong on "WAIT WINDOW [laLabels Type: ] +
TYPE("laLabels[liPoints]")" ?
I expected a string but it is of object type. I want to get the label of the
column.
STORE 0 TO liPoints
IF Thisform.Pgf1.Page1.dCube1.SelStartCol <= ;
Thisform.Pgf1.Page1.dCube1.SelEndCol
lnis = Thisform.Pgf1.Page1.dCube1.SelStartCol
lnie = Thisform.Pgf1.Page1.dCube1.SelEndCol
ELSE
lnis = Thisform.Pgf1.Page1.dCube1.SelEndCol
lnie = Thisform.Pgf1.Page1.dCube1.SelStartCol
ENDIF
DO WHILE lnis <= lnie
liPoints = liPoints + 1
DIME laLabels[liPoints]
FOR lni = 1 TO Thisform.Pgf1.Page1.dCube1.ColDepth(lnis)
laLabels[liPoints] = Thisform.Pgf1.Page1.dCube1.ColHeading(lnis, lni)
WAIT WINDOW [laLabels Type: ] + TYPE("laLabels[liPoints]")
NEXT
lnis = Thisform.Pgf1.Page1.dCube1.NextCol(lnis)
ENDDO
Regards.
Re: Using dCube.ColHeading(lnis, lni)
10-24-2002, 12:00 AM
Originally Posted By: Farouk Yew Abdullah<tfyew@pc.jaring.my>
Never mind. I have found out the ColHeading is an object and u need to
specify a property like Caption to get the title. Funny that the help did
not say this...
Regards.
"Farouk Yew Abdullah"
wrote in message
news:JI39$lweCHA.1500@dynaweb.datadynamics.com...
> Hi all,
>
>
>
> Can anyone spot what is wrong on "WAIT WINDOW [laLabels Type: ] +
> TYPE("laLabels[liPoints]")" ?
>
> I expected a string but it is of object type. I want to get the label of
the
> column.
>
>
>
> STORE 0 TO liPoints
>
> IF Thisform.Pgf1.Page1.dCube1.SelStartCol <= ;
>
> Thisform.Pgf1.Page1.dCube1.SelEndCol
>
> lnis = Thisform.Pgf1.Page1.dCube1.SelStartCol
>
> lnie = Thisform.Pgf1.Page1.dCube1.SelEndCol
>
> ELSE
>
> lnis = Thisform.Pgf1.Page1.dCube1.SelEndCol
>
> lnie = Thisform.Pgf1.Page1.dCube1.SelStartCol
>
> ENDIF
>
> DO WHILE lnis <= lnie
>
> liPoints = liPoints + 1
>
> DIME laLabels[liPoints]
>
> FOR lni = 1 TO Thisform.Pgf1.Page1.dCube1.ColDepth(lnis)
>
> laLabels[liPoints] = Thisform.Pgf1.Page1.dCube1.ColHeading(lnis,
lni)
>
> WAIT WINDOW [laLabels Type: ] + TYPE("laLabels[liPoints]")
>
> NEXT
>
> lnis = Thisform.Pgf1.Page1.dCube1.NextCol(lnis)
>
> ENDDO
>
>
>
> Regards.
>
>
>