Ayuda con Treeview por Favorrrr
Publicado por Luis Polo (134 intervenciones) el 29/08/2007 20:41:09
Hola:
Disculpen que vuelva abrir otro hilo, pero no he tenido respuesta y ya no se que hacer.
Intento mostrar solo las subcarpetas en un Treeview pero me sale el siguiente error:
"OBJECT es un miembro desconocido", alguien sabe q esta mal.
*** Evento: INIT del OleControl2***
u_ruta = '\Sistema\Empresa04\'
Miruta=sys(5)+u_ruta+'*.*'
Tdir= ADIR(Misd,Miruta,'D')
FOR Cd=1 TO Tdir
if Misd(Cd,5)='....D' AND Misd(Cd,1)#'.' AND Misd(Cd,1)#'..'
Thisform.Object.Nodes.Add(,,Misd(Cd,1),Misd(Cd,1))
endif
ENDFOR
This.object.LineStyle= 1
This.object.SingleSel= .t.
This.object.HotTracking= .t.
Thisform.Refresh
Gracias.
Disculpen que vuelva abrir otro hilo, pero no he tenido respuesta y ya no se que hacer.
Intento mostrar solo las subcarpetas en un Treeview pero me sale el siguiente error:
"OBJECT es un miembro desconocido", alguien sabe q esta mal.
*** Evento: INIT del OleControl2***
u_ruta = '\Sistema\Empresa04\'
Miruta=sys(5)+u_ruta+'*.*'
Tdir= ADIR(Misd,Miruta,'D')
FOR Cd=1 TO Tdir
if Misd(Cd,5)='....D' AND Misd(Cd,1)#'.' AND Misd(Cd,1)#'..'
Thisform.Object.Nodes.Add(,,Misd(Cd,1),Misd(Cd,1))
endif
ENDFOR
This.object.LineStyle= 1
This.object.SingleSel= .t.
This.object.HotTracking= .t.
Thisform.Refresh
Gracias.
Valora esta pregunta
0