Llenar un Tree en tiempo de ejecución.
Publicado: Vie Oct 17, 2008 7:13 pm
Hola a todos,
Como armo un Tree en tiempo de ejecución, esto es lo que estoy haciendo:
Creo el control oTree (TTreeView), genero un Metodo que me llene el Tree
despues que se realiza una Query:
WITH OBJECT ::oSQLQPaquetes
IF :lOpen
:Close()
ENDIF
:oDataSource := AppData:oDataSource
:cSelect := "SELECT ROW_ID,NAME,CONTRACTEDFROM,CONTRACTEDTO,STATE
FROM vAMContractedItems " + ;
"WHERE CParty_Id = " + cCliente + ;
" AND ROWTYPE = 'B' " + ;
"ORDER BY CONTRACTEDFROM DESC"
:Open()
DO WHILE ! Eof()
::oTreeProductos:AddItem( :NAME )
:Skip(1)
END DO
::oTreeProductos:Refresh()
:Close()
END
END
Segun yo el AddItem debería crear los items del Tree pero no me hace nada.
Agradezco la ayuda de antemano.
Saludos,
Mario A. Dávalos
México, D.F.
Como armo un Tree en tiempo de ejecución, esto es lo que estoy haciendo:
Creo el control oTree (TTreeView), genero un Metodo que me llene el Tree
despues que se realiza una Query:
WITH OBJECT ::oSQLQPaquetes
IF :lOpen
:Close()
ENDIF
:oDataSource := AppData:oDataSource
:cSelect := "SELECT ROW_ID,NAME,CONTRACTEDFROM,CONTRACTEDTO,STATE
FROM vAMContractedItems " + ;
"WHERE CParty_Id = " + cCliente + ;
" AND ROWTYPE = 'B' " + ;
"ORDER BY CONTRACTEDFROM DESC"
:Open()
DO WHILE ! Eof()
::oTreeProductos:AddItem( :NAME )
:Skip(1)
END DO
::oTreeProductos:Refresh()
:Close()
END
END
Segun yo el AddItem debería crear los items del Tree pero no me hace nada.
Agradezco la ayuda de antemano.
Saludos,
Mario A. Dávalos
México, D.F.