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.