La colaboración de Javier (JM)

Esto es un programilla que muestra una rutina para pasar un array de datos a un control TreeView formando la jerarquía en base a un campo.
El ejemplo muestra para que lo diseñé, un plan de contabilidad, pero ha quedado tan simple O8-) que creo que es fácil modificarlo para otros tipos de datos.
Lo he hecho esta mañana (3 de Febrero) en un rato, así que está sin depurar ni nasty de plasty.
En realidad ha funcionado a la primera, así que no he querido vérmelas con los duendes...
La parte principal es la Sub Populate, es pública porque va a ir en una clase que encapsulará un control TreeView (por eso hago una referencia al control y trabajo con ella en vez de directamente con el control).
Sería muy fácil añadirle imágenes, sólo habría que pasar otro campo...
Por ejemplo, el primer 'registro' sería

inArrayA(0,0)=Nº de la cuenta
inArrayA(1,0)=Nombre de la cuenta
inArrayA(2,0)=Indice para la imagen

ATENCIÓN, El control TreeView que he utilizado pertenece a la librería que se instala con Visual Basic 5 CCE.
Si al cargar el proyecto VB os dice que no ha podido cargar el control, continuad cargando el proyecto, abrir el form, eliminad la Picture Box de color rojo con el nombre TreeView1, y dibujar un control TreeView... debe funcionar.

EL PERO
Los registros del array deben estar ordenados, es decir los hijos después de sus padres.

Un saludo desde Jaén,
Javier
[email protected]

 Pulsa aquí para bajar el archivo comprimido con los listados: treetabl.zip 11.9 KB