Página 1 de 1

Filtro en ArrayBrowse

Publicado: Mié Mar 08, 2006 4:58 pm
por Emilio Gil
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.

Filtro en ArrayBrowse

Publicado: Mié Mar 08, 2006 5:50 pm
por ignacio
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.
>

Filtro en ArrayBrowse

Publicado: Mié Mar 08, 2006 5:59 pm
por Emilio Gil
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.