FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour como se la cantidad de items que tiene un tree?
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
como se la cantidad de items que tiene un tree?
Posted: Sat Oct 25, 2008 01:33 AM

Hola.
Como se la cantidad de items que posee un Tree, no las ramas sino el total de items que tiene en todas las ramas.

Gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
como se la cantidad de items que tiene un tree?
Posted: Sat Oct 25, 2008 09:43 AM

Gustavo,

Len( oTreeView:aItems )

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
como se la cantidad de items que tiene un tree?
Posted: Sat Oct 25, 2008 10:23 AM
Antonio,
Si hago eso, me devuelve la cantidad de "padres" que tiene el arbol. pero no los hijos, yo necesito conocer la cantidad de hijos. si no existe lo hago de otra forma.

Gracias.
Antonio Linares wrote:Gustavo,

Len( oTreeView:aItems )
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
como se la cantidad de items que tiene un tree?
Posted: Sat Oct 25, 2008 10:29 AM
Prueba esta función:
function TreeViewItems( oTreeView )

   local oItem, n, nItems := 0 

   for n := 1 to Len( oTreeView:aItems ) 
       oItem = aItems[ n ] 
       nItems++ 
       if Len( oItem:aItems ) != 0 
          nItems += TreeViewItems( oItem ) 
       endif 
   next 

return nItems
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
como se la cantidad de items que tiene un tree?
Posted: Sat Oct 25, 2008 10:34 AM
Amigo,

Justo eso estube haciendo pero pense que habia una forma directa.

GRacias.

Antonio Linares wrote:Prueba esta función:

function TreeViewItems( oTreeView )

   local oItem, n, nItems := 0 

   for n := 1 to Len( oTreeView:aItems ) 
       oItem = aItems[ n ] 
       nItems++ 
       if Len( oItem:aItems ) != 0 
          nItems += TreeViewItems( oItem ) 
       endif 
   next 

return nItems
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion