FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Antonio - Retomo lo del tree podes ayudarme cn esto?
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Antonio - Retomo lo del tree podes ayudarme cn esto?
Posted: Thu May 05, 2022 12:19 PM
hace un tiempo intente y no funcionó, vos me dijiste que haga de una forma pero tampoco funcionó.
te comento: tengo un array que genero asi (con una tupla incluida):
Code (fw): Select all Collapse
    AAdd( ::aTree, { oQry:FieldGet( "c7" ) + "     " + ::cCargo, ;
                       { ;
                         "nId" => oQry:FieldGet( "c4" ), ;
                         "nIdPadre" => oQry:FieldGet( "c5" ), ;
                         "dFecha" => oQry:FieldGet( "c7" ), ;
                         "nHitem" => 0 ;
                       } } )


Luego necesito recorrer ese array para buscar un determinado valor que viene desde una tabla,
el valor existe y tambien existe en el array ::aTree pero el aScan me dice siempre que la posicion es cero
cuando deberia de ser mayor a cero:
Code (fw): Select all Collapse
         nPosicion := AScan( ::aTree, { | xCelda | xCelda[ 2 ][ "nId" ] == oQry:FieldGet( "c5" ) } )


En cambio si me recorro el array con un FOR NEXT o FOR EACH el valor existe.
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
Re: Antonio - Retomo lo del tree podes ayudarme cn esto?
Posted: Fri May 06, 2022 08:26 AM
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion