Ayuda con el control treeview

Este código llena un arbol de una tabla que tiene trers campos:

id Descripcion idClaveMadre
*--

o = thisform.pagina.page1.arbolMenu.Nodes

o.clear

USE UsuariosArbolPermisosMenu IN 0 ALIAS pam

GO TOP IN pam

DO WHILE NOT EOF("pam")

*EVALUA SI EL NODO ES RAIZ

sIdClave=ALLTRIM(STR(pam.idClave))+"_"

sDescripci=ALLTRIM(pam.Descripci)

sIdClaveMadre=ALLTRIM(STR(pam.idClaveMadre))+"_"

IF pam.idClave = pam.idClaveMadre

*ES UN NODO RAIZ

o.add(, 1, sIdClave, sDescripci)

ELSE

*ES UN NODO HIJO

o.add(sIdClaveMadre, 4, sIdClave, sDescripci)

ENDIF

SKIP IN pam

ENDDO



Gabriel J. Dameñov
(2152) Granadero Baigorria - Santa Fe
-
"egsdar" escribió en el mensaje
news:

Hola, tengo que hacer un arbol genealogico para caballos y lo tengo que
sacar
de una tabla donde reside dicha información, basicamente uso para ello el
id
y el parentid pero la verdad es que no tengo ni idea de como hacer dado
que
no estoy familiarizado con dicho control.

Agradezco la ayuda que me puedan brindar.

Muchas gracias por escribir voy a probarlo, sin embargo, hay una parte que no
entiendo y me imagino que es por que tu lo tienes de acuerdo a uno que
hiciste con lo que te solicite.

Me podrías explicar esta parte: o = thisform.pagina.page1.arbolMenu.Nodes


Gracias.

"Gabriel Dameñov" wrote:

Este código llena un arbol de una tabla que tiene trers campos:

id Descripcion idClaveMadre
*--

o = thisform.pagina.page1.arbolMenu.Nodes

o.clear

USE UsuariosArbolPermisosMenu IN 0 ALIAS pam

GO TOP IN pam

DO WHILE NOT EOF("pam")

*EVALUA SI EL NODO ES RAIZ

sIdClave=ALLTRIM(STR(pam.idClave))+"_"

sDescripci=ALLTRIM(pam.Descripci)

sIdClaveMadre=ALLTRIM(STR(pam.idClaveMadre))+"_"

IF pam.idClave = pam.idClaveMadre

*ES UN NODO RAIZ

o.add(, 1, sIdClave, sDescripci)

ELSE

*ES UN NODO HIJO

o.add(sIdClaveMadre, 4, sIdClave, sDescripci)

ENDIF

SKIP IN pam

ENDDO



Gabriel J. Dameñov
(2152) Granadero Baigorria - Santa Fe
-
"egsdar" escribió en el mensaje
news:
> Hola, tengo que hacer un arbol genealogico para caballos y lo tengo que
> sacar
> de una tabla donde reside dicha información, basicamente uso para ello el
> id
> y el parentid pero la verdad es que no tengo ni idea de como hacer dado
> que
> no estoy familiarizado con dicho control.
>
> Agradezco la ayuda que me puedan brindar.

En la línea "o = thisform.pagina.page1.arbolMenu.Nodes" asigno a la variable
"o" una colección de todos los nodos del árbol. En este caso, el árbol está
en un contenedor. Si lo colocas directamente en el formulario sería así:

o = thisform.Arbol.Nodes

luego, "o" se comporta como "thisform.Arbol.Nodes" (algo parecido a hacer un
WITH ENDWITH)

Saludos.


Gabriel J. Dameñov
(2152) Granadero Baigorria - Santa Fe
-
"egsdar" escribió en el mensaje
news:

Muchas gracias por escribir voy a probarlo, sin embargo, hay una parte que
no
entiendo y me imagino que es por que tu lo tienes de acuerdo a uno que
hiciste con lo que te solicite.

Me podrías explicar esta parte: o = thisform.pagina.page1.arbolMenu.Nodes


Gracias.

"Gabriel Dameñov" wrote:

Este código llena un arbol de una tabla que tiene trers campos:

id Descripcion idClaveMadre
*--

o = thisform.pagina.page1.arbolMenu.Nodes

o.clear

USE UsuariosArbolPermisosMenu IN 0 ALIAS pam

GO TOP IN pam

DO WHILE NOT EOF("pam")

*EVALUA SI EL NODO ES RAIZ

sIdClave=ALLTRIM(STR(pam.idClave))+"_"

sDescripci=ALLTRIM(pam.Descripci)

sIdClaveMadre=ALLTRIM(STR(pam.idClaveMadre))+"_"

IF pam.idClave = pam.idClaveMadre

*ES UN NODO RAIZ

o.add(, 1, sIdClave, sDescripci)

ELSE

*ES UN NODO HIJO

o.add(sIdClaveMadre, 4, sIdClave, sDescripci)

ENDIF

SKIP IN pam

ENDDO



Gabriel J. Dameñov
(2152) Granadero Baigorria - Santa Fe
-
"egsdar" escribió en el mensaje
news:
> Hola, tengo que hacer un arbol genealogico para caballos y lo tengo que
> sacar
> de una tabla donde reside dicha información, basicamente uso para ello
> el
> id
> y el parentid pero la verdad es que no tengo ni idea de como hacer dado
> que
> no estoy familiarizado con dicho control.
>
> Agradezco la ayuda que me puedan brindar.

Muchas gracais por tu ayuda y paciencia, pero no se que estare haciendo mal,
lo que he hecho hasta ahora, ha sido colocar el olecontrol en un formulario y
en el evento getfocus coloque tu codigo pero desafortundamente en esta linea
o=thisform.oletree.nodes
y el error es ,vias racias.
OLE error code 0x80020006: Nombre desconocido
"Gabriel Dameñov" wrote:

En la línea "o = thisform.pagina.page1.arbolMenu.Nodes" asigno a la variable
"o" una colección de todos los nodos del árbol. En este caso, el árbol está
en un contenedor. Si lo colocas directamente en el formulario sería así:

o = thisform.Arbol.Nodes

luego, "o" se comporta como "thisform.Arbol.Nodes" (algo parecido a hacer un
WITH ENDWITH)

Saludos.


Gabriel J. Dameñov
(2152) Granadero Baigorria - Santa Fe
-
"egsdar" escribió en el mensaje
news:
> Muchas gracias por escribir voy a probarlo, sin embargo, hay una parte que
> no
> entiendo y me imagino que es por que tu lo tienes de acuerdo a uno que
> hiciste con lo que te solicite.
>
> Me podrías explicar esta parte: o = thisform.pagina.page1.arbolMenu.Nodes
>
>
> Gracias.
>
> "Gabriel Dameñov" wrote:
>
>> Este código llena un arbol de una tabla que tiene trers campos:
>>
>> id Descripcion idClaveMadre
>> *--
>>
>> o = thisform.pagina.page1.arbolMenu.Nodes
>>
>> o.clear
>>
>> USE UsuariosArbolPermisosMenu IN 0 ALIAS pam
>>
>> GO TOP IN pam
>>
>> DO WHILE NOT EOF("pam")
>>
>> *EVALUA SI EL NODO ES RAIZ
>>
>> sIdClave=ALLTRIM(STR(pam.idClave))+"_"
>>
>> sDescripci=ALLTRIM(pam.Descripci)
>>
>> sIdClaveMadre=ALLTRIM(STR(pam.idClaveMadre))+"_"
>>
>> IF pam.idClave = pam.idClaveMadre
>>
>> *ES UN NODO RAIZ
>>
>> o.add(, 1, sIdClave, sDescripci)
>>
>> ELSE
>>
>> *ES UN NODO HIJO
>>
>> o.add(sIdClaveMadre, 4, sIdClave, sDescripci)
>>
>> ENDIF
>>
>> SKIP IN pam
>>
>> ENDDO
>>
>>
>>
>> Gabriel J. Dameñov
>> (2152) Granadero Baigorria - Santa Fe
>> -
>> "egsdar" escribió en el mensaje
>> news:
>> > Hola, tengo que hacer un arbol genealogico para caballos y lo tengo que
>> > sacar
>> > de una tabla donde reside dicha información, basicamente uso para ello
>> > el
>> > id
>> > y el parentid pero la verdad es que no tengo ni idea de como hacer dado
>> > que
>> > no estoy familiarizado con dicho control.
>> >
>> > Agradezco la ayuda que me puedan brindar.
>>
>>
>>

Este link te puede ayudar..

http://www.microsoft.com/spanish/ms...art113.asp


Abraham uribe
Medellin-Colombia



"egsdar" escribió en el mensaje
news:

Hola, tengo que hacer un arbol genealogico para caballos y lo tengo que
sacar
de una tabla donde reside dicha información, basicamente uso para ello el
id
y el parentid pero la verdad es que no tengo ni idea de como hacer dado
que
no estoy familiarizado con dicho control.

Agradezco la ayuda que me puedan brindar.