Filtrar array xBrowse

Filtrar array xBrowse

Postby JoseAlvarez » Sun Oct 24, 2021 4: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.
User avatar
JoseAlvarez
 
Posts: 800
Joined: Sun Nov 09, 2014 5:01 pm

Re: Filtrar array xBrowse

Postby leandro » Mon Oct 25, 2021 12:32 am

Code: Select all  Expand view  RUN

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

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1676
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Re: Filtrar array xBrowse

Postby JoseAlvarez » Thu Oct 28, 2021 4:49 pm

leandro wrote:
Code: Select all  Expand view  RUN

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.
User avatar
JoseAlvarez
 
Posts: 800
Joined: Sun Nov 09, 2014 5:01 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 58 guests