Cómo atravesar un árbol de expansión en PB

Parámetros: ventana de datos adw_tv_date

Tres columnas: tv_id, tv_name, tv_ipid (este es su código, nombre y código superior)

largo i, ll_id_len, ll_root_handle, ll_ insert_handle, ll_currenthandle, ll_handle

cadena ls_id, ls_name, ls_father_id, ls_upid

treeviewitem ltvi_demo

ltvi_ demo.label = ' Root directorio'

ltvi_demo.pictureindex = 3

ltvi_demo.selectedpictureindex = 4

ll_root_handle = tv_demo. insertitemlast (0,ltvi_demo) // inserta raíz

para i = 1 en adw_tv_date.rowcount() // recorre toda la ventana de datos

ls_id = adw_tv_date.object.tv_id[ i] //saca tres valores

ls_name = adw_tv_date.object.tv_name[i]

ls_upid = adw_tv_date.object.tv_upid[i]