Agregar elementos a un control treeview

El problema es que estás usando macro-sustición para el valor de los campos
y, claro, si el valor de codbal del primer registro es A, al poner el signo
&, te está cogiendo el valor del campo y no el nombre. Te sugiero este
cambio:
SELECT pgc
GO top

SCAN
acode=ALLTRIM(pgc.codbal)
adescrip=ALLTRIM(pgc.descrip)
anumero=ALLTRIM(pgc.numero)
*** Fíjate que he quitado la macro-sustición... ***
this.obJECT.Nodes.Add(anumero,acode,adescrip)

ENDSCAN

this.object.LineStyle= 1
this.obJECT.SingleSel= .T.
this.objECT.HotTracking= .T.


Víctor Brasó
Desarrollador independiente

"Sebastian Izuibejeres" escribió en el mensaje
news:

Amigos del foro estoy intentando agregar elementos de una tabla a un

control

treeview, nunca he trabajado con este tipo de controles por lo que se me
esta dificultando un poco, lo que estoy haciendo es lo siguiente:

SELECT pgc
GO top

SCAN
acode=ALLTRIM(pgc.codbal)
adescrip=ALLTRIM(pgc.descrip)
anumero=ALLTRIM(pgc.numero)

this.obJECT.Nodes.Add(&anumero,&acode,&adescrip)

ENDSCAN

this.object.LineStyle= 1
this.obJECT.SingleSel= .T.
this.objECT.HotTracking= .T.


Pero me dice no se puede encontrar la variable A que es el valor que tiene
el primer registro del campo codbal de la tabla pgc.-

Les agradezco la ayuda que me puedan dar con esto.-


_______________________
Sebastián Izuibejeres
Montevideo - URUGUAY
WIN2000 / VFP9.0 - SP1

OK, pero si lo hago como tu dices, me da el siguiente error:

Codigo de excepcion OLE IDispatch 0 de Nodes: Invalid Key

Que puede ser.. ?


_______________________
Sebastián Izuibejeres
Montevideo - URUGUAY
WIN2000 / VFP9.0 - SP1


"Victor B." escribió en el mensaje
news:eaQ8c%

El problema es que estás usando macro-sustición para el valor de los

campos

y, claro, si el valor de codbal del primer registro es A, al poner el

signo

&, te está cogiendo el valor del campo y no el nombre. Te sugiero este
cambio:
SELECT pgc
GO top

SCAN
acode=ALLTRIM(pgc.codbal)
adescrip=ALLTRIM(pgc.descrip)
anumero=ALLTRIM(pgc.numero)
*** Fíjate que he quitado la macro-sustición... ***
this.obJECT.Nodes.Add(anumero,acode,adescrip)

ENDSCAN

this.object.LineStyle= 1
this.obJECT.SingleSel= .T.
this.objECT.HotTracking= .T.


Víctor Brasó
Desarrollador independiente

"Sebastian Izuibejeres" escribió en el mensaje
news:
> Amigos del foro estoy intentando agregar elementos de una tabla a un
control
> treeview, nunca he trabajado con este tipo de controles por lo que se me
> esta dificultando un poco, lo que estoy haciendo es lo siguiente:
>
> SELECT pgc
> GO top
>
> SCAN
> acode=ALLTRIM(pgc.codbal)
> adescrip=ALLTRIM(pgc.descrip)
> anumero=ALLTRIM(pgc.numero)
>
> this.obJECT.Nodes.Add(&anumero,&acode,&adescrip)
>
> ENDSCAN
>
> this.object.LineStyle= 1
> this.obJECT.SingleSel= .T.
> this.objECT.HotTracking= .T.
>
>
> Pero me dice no se puede encontrar la variable A que es el valor que

tiene

> el primer registro del campo codbal de la tabla pgc.-
>
> Les agradezco la ayuda que me puedan dar con esto.-
>
>
> _______________________
> Sebastián Izuibejeres
> Montevideo - URUGUAY
> WIN2000 / VFP9.0 - SP1
>
>
>

A ver, me temo que no estás usando correctamente el método Add. Según la
documentación del objeto TreeView, la sintaxis sería esta:
objeto.Add(relativa, relación, clave, texto, imagen, imagenSeleccionada)

Donde relativa es un número que puede tener los valores de cero a cuatro:
0 = tvwFirst
1 = tvwLast
2 = tvwNext
3 = tvwPrevious
4 = tvwChild

relativa Opcional. El número de índice o clave de un objeto Node ya
existente. Su relación con el nuevo nodo viene determinada por el argumento
siguiente, relación

texto es lo que quieres que se muestre en el nodo.
Te recomiendo que en modo de diseño, selecciones el objeto y pulses F1.

Víctor Brasó
Desarrollador independiente

"Sebastian Izuibejeres" escribió en el mensaje
news:%

OK, pero si lo hago como tu dices, me da el siguiente error:

Codigo de excepcion OLE IDispatch 0 de Nodes: Invalid Key

Que puede ser.. ?


_______________________
Sebastián Izuibejeres
Montevideo - URUGUAY
WIN2000 / VFP9.0 - SP1


"Victor B." escribió en el mensaje
news:eaQ8c%
> El problema es que estás usando macro-sustición para el valor de los
campos
> y, claro, si el valor de codbal del primer registro es A, al poner el
signo
> &, te está cogiendo el valor del campo y no el nombre. Te sugiero este
> cambio:
> SELECT pgc
> GO top
>
> SCAN
> acode=ALLTRIM(pgc.codbal)
> adescrip=ALLTRIM(pgc.descrip)
> anumero=ALLTRIM(pgc.numero)
> *** Fíjate que he quitado la macro-sustición... ***
> this.obJECT.Nodes.Add(anumero,acode,adescrip)
>
> ENDSCAN
>
> this.object.LineStyle= 1
> this.obJECT.SingleSel= .T.
> this.objECT.HotTracking= .T.
>
>
> Víctor Brasó
> Desarrollador independiente
>
> "Sebastian Izuibejeres" escribió en el mensaje
> news:
> > Amigos del foro estoy intentando agregar elementos de una tabla a un
> control
> > treeview, nunca he trabajado con este tipo de controles por lo que se

me

> > esta dificultando un poco, lo que estoy haciendo es lo siguiente:
> >
> > SELECT pgc
> > GO top
> >
> > SCAN
> > acode=ALLTRIM(pgc.codbal)
> > adescrip=ALLTRIM(pgc.descrip)
> > anumero=ALLTRIM(pgc.numero)
> >
> > this.obJECT.Nodes.Add(&anumero,&acode,&adescrip)
> >
> > ENDSCAN
> >
> > this.object.LineStyle= 1
> > this.obJECT.SingleSel= .T.
> > this.objECT.HotTracking= .T.
> >
> >
> > Pero me dice no se puede encontrar la variable A que es el valor que
tiene
> > el primer registro del campo codbal de la tabla pgc.-
> >
> > Les agradezco la ayuda que me puedan dar con esto.-
> >
> >
> > _______________________
> > Sebastián Izuibejeres
> > Montevideo - URUGUAY
> > WIN2000 / VFP9.0 - SP1
> >
> >
> >
>
>