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:
Mostrar la cita

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

control
Mostrar la cita

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%
Mostrar la cita

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

campos
Mostrar la cita

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

signo
Mostrar la cita

&, 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
Mostrar la cita

> 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:%
Mostrar la cita

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
Mostrar la cita

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