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.
>
>
>