Como imprimir un Tree View

Yo creo una tabla temporal (estr_imp) en la que almaceno el texto del nodo
y la sangria.
Esta sangria es un valor numérico que me indica la profundidad del nodo en
la estructura.
Para rellenar la tabla

Asociado el boton imprimir

local i, oNodo
for i=1 to Thisform.Estructura.Arbol.nodes.count()
oNodo=Thisform.Estructura.Arbol.nodes.item(i)
if isnull(oNodo.Parent)
=thisform.hijos(oNodo,0)
endif
endfor

Nota: Thisform.Estructura.Arbol es mi control treeview

hijos en mi caso es un método del formulario
y este es el código

lparameters p_Nodo, p_sangria
Local l_sangria, oNodo, i, oHijo
insert into estr_imp(text, sangria) values (p_Nodo.Text, p_sangria)
l_sangria=p_sangria+1
if p_Nodo.Children>0
oHijo=p_Nodo.Child
for i=1 to p_Nodo.Children
=thisform.hijos(oHijo, l_sangria)
oHijo=oHijo.next
endfor
endif

************************************

Para imprimir utilizo un informe con un campo con la siguiente expresión
replicate(' ',sangria*4)+iif(sangria>0,'|-->','')+estr_imp.text
Así obtengo algo parecido a esto

Elemento 1
|--> Elemento 1.1
|--> Elemento 1.2
|--> Elemento 1.2.1
|--> Elemento 1.3

Es un poco espartano, pero puede servir de base
Espero que te sirva.

PD:¿ Le has hechado un vistazo a hilo 'NodeCheck en Treeview' en este
meimo foro?





PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway