Alguna manera de poder filtrar un arraybrowse por el valor dado de una
de sus columnas en tiempo de diseño, no utilizando la propiedad
lFilterBar en tiempo de ejecución.
Gracias.
Emilio Gil.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Filtro en ArrayBrowse
-
Emilio Gil
- Mensajes: 48
- Registrado: Mié Nov 23, 2005 5:08 pm
-
ignacio
- Site Admin
- Mensajes: 9447
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Filtro en ArrayBrowse
Emilio,
Siempre te lo puedes hacer a mano, no obstante la PR7 incluye un nuevo
control TMemDataSet, que además de filtros, permite ordenar por cualquier
combinación de columnas tanto ascendente como descendente e incluso se
pueden hacer Seeks.
Te incluyo un pequeño ejemplo de como hacerlo a mano:
(Se supone que existe una data de nombre UnFilteredArray con la matriz
completa)
METHOD SetFilter() CLASS TForm1
Local aData := {}
Local aRow
Application:lBusy := .t.
If ::oCheckBox1:lChecked
For Each aRow In ::aUnFilteredArray
If aRow[ ...] == ...
Aadd( aData, aRow )
Endif
Next
Else
aData := ::aUnFilteredArray
Endif
::oArrayBrowse1:SetArray( aData )
Application:lBusy := .f.
RETURN Nil
Un saludo,
"Emilio Gil" <emilio@iplasticas.com> escribió en el mensaje
news:440efef0$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Alguna manera de poder filtrar un arraybrowse por el valor dado de una de
> sus columnas en tiempo de diseño, no utilizando la propiedad lFilterBar en
> tiempo de ejecución.
>
> Gracias.
> Emilio Gil.
>
Siempre te lo puedes hacer a mano, no obstante la PR7 incluye un nuevo
control TMemDataSet, que además de filtros, permite ordenar por cualquier
combinación de columnas tanto ascendente como descendente e incluso se
pueden hacer Seeks.
Te incluyo un pequeño ejemplo de como hacerlo a mano:
(Se supone que existe una data de nombre UnFilteredArray con la matriz
completa)
METHOD SetFilter() CLASS TForm1
Local aData := {}
Local aRow
Application:lBusy := .t.
If ::oCheckBox1:lChecked
For Each aRow In ::aUnFilteredArray
If aRow[ ...] == ...
Aadd( aData, aRow )
Endif
Next
Else
aData := ::aUnFilteredArray
Endif
::oArrayBrowse1:SetArray( aData )
Application:lBusy := .f.
RETURN Nil
Un saludo,
"Emilio Gil" <emilio@iplasticas.com> escribió en el mensaje
news:440efef0$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Alguna manera de poder filtrar un arraybrowse por el valor dado de una de
> sus columnas en tiempo de diseño, no utilizando la propiedad lFilterBar en
> tiempo de ejecución.
>
> Gracias.
> Emilio Gil.
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
-
Emilio Gil
- Mensajes: 48
- Registrado: Mié Nov 23, 2005 5:08 pm
Filtro en ArrayBrowse
Ignacio Ortiz de Zúñiga escribió:
> Emilio,
>
> Siempre te lo puedes hacer a mano, no obstante la PR7 incluye un nuevo
> control TMemDataSet, que además de filtros, permite ordenar por cualquier
> combinación de columnas tanto ascendente como descendente e incluso se
> pueden hacer Seeks.
>
> Te incluyo un pequeño ejemplo de como hacerlo a mano:
>
> (Se supone que existe una data de nombre UnFilteredArray con la matriz
> completa)
>
> METHOD SetFilter() CLASS TForm1
>
> Local aData := {}
> Local aRow
>
> Application:lBusy := .t.
>
> If ::oCheckBox1:lChecked
> For Each aRow In ::aUnFilteredArray
> If aRow[ ...] == ...
> Aadd( aData, aRow )
> Endif
> Next
> Else
> aData := ::aUnFilteredArray
> Endif
>
> ::oArrayBrowse1:SetArray( aData )
>
> Application:lBusy := .f.
>
> RETURN Nil
>
> Un saludo,
>
> "Emilio Gil" <emilio@iplasticas.com> escribió en el mensaje
> news:440efef0$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
>>Alguna manera de poder filtrar un arraybrowse por el valor dado de una de
>>sus columnas en tiempo de diseño, no utilizando la propiedad lFilterBar en
>>tiempo de ejecución.
>>
>>Gracias.
>>Emilio Gil.
>>
>
>
>
>
Gracias Ignacio. Sabes mas o menos para cuando estará lista la PR7.
Un saludo, Emilio Gil.
> Emilio,
>
> Siempre te lo puedes hacer a mano, no obstante la PR7 incluye un nuevo
> control TMemDataSet, que además de filtros, permite ordenar por cualquier
> combinación de columnas tanto ascendente como descendente e incluso se
> pueden hacer Seeks.
>
> Te incluyo un pequeño ejemplo de como hacerlo a mano:
>
> (Se supone que existe una data de nombre UnFilteredArray con la matriz
> completa)
>
> METHOD SetFilter() CLASS TForm1
>
> Local aData := {}
> Local aRow
>
> Application:lBusy := .t.
>
> If ::oCheckBox1:lChecked
> For Each aRow In ::aUnFilteredArray
> If aRow[ ...] == ...
> Aadd( aData, aRow )
> Endif
> Next
> Else
> aData := ::aUnFilteredArray
> Endif
>
> ::oArrayBrowse1:SetArray( aData )
>
> Application:lBusy := .f.
>
> RETURN Nil
>
> Un saludo,
>
> "Emilio Gil" <emilio@iplasticas.com> escribió en el mensaje
> news:440efef0$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
>>Alguna manera de poder filtrar un arraybrowse por el valor dado de una de
>>sus columnas en tiempo de diseño, no utilizando la propiedad lFilterBar en
>>tiempo de ejecución.
>>
>>Gracias.
>>Emilio Gil.
>>
>
>
>
>
Gracias Ignacio. Sabes mas o menos para cuando estará lista la PR7.
Un saludo, Emilio Gil.