topic-40967

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Filtrar array xBrowse
Posted: Sun Oct 24, 2021 04:52 PM

Saludos amigos,

tengo un xBrowse con un arreglo de memoria como DATASOURCE

necesito filtrar las filas donde la columna 7 sea diferente de 0 (valor numerico). Es decir, que muestre solo las filas donde la columna 7 tenga valor, positivo o negativo.
Tambien la manera de limpiar el filtro, o sea volver a ver todas la filas cumplan o no con la condicion

Ya busque en post anteriores y no he dado con la solucion, igual sigo buscando mientras llega la ayuda

alguna sugerencia?

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

leandro

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Re: Filtrar array xBrowse
Posted: Mon Oct 25, 2021 12:32 AM

Code (fw): Select all Collapse

Local aRspFac := {} //el array a filtrar
Local bFilter  := { |x| x["comoesta"] == "Vencida" }
AScan( aRspFac, { |x| If ( Eval( bFilter, x ), AAdd( aSub, x ), nil ) } )
aRspFac := aSub

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Filtrar array xBrowse
Posted: Thu Oct 28, 2021 04:49 PM

leandro wrote:

Code (fw): Select all Collapse

Local aRspFac := {} //el array a filtrar
Local bFilter  := { |x| x["comoesta"] == "Vencida" }
AScan( aRspFac, { |x| If ( Eval( bFilter, x ), AAdd( aSub, x ), nil ) } )
aRspFac := aSub

Leandro,

Gracias !! funcionó como queria, agradecido

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

FiveTech Support Forums

Continue the discussion