Hacer Filtros

[PEDRO DE LEON RODAS[1]]

Saludos.
Nuevamente requiriendo de su ayuda.
¿ Como puedo hacer un filtro con Filter ? o sea con TDataSet:Filter
¿ O Como hacerlo con Set filter to ?
¿ O como hacer que cuando se usa TBrowse:lFilterBar Al Momento de darle
enter al filtro se posicione en los registros filtrados ?
De antemano, mil gracias.

[PILO]

"PEDRO DE LEON RODAS" <deleonpe@terra.com.mx> escribió en el mensaje news:[email=48cc7b1c@ozsrv2.ozlan.local...]48cc7b1c@ozsrv2.ozlan.local...[/email]
> Saludos.
> Nuevamente requiriendo de su ayuda.
> ¿ Como puedo hacer un filtro con Filter ? o sea con TDataSet:Filter
Hola yo utilizo so siguiente, espero que te sirva
METHOD BUSCARCLIENTE( oSender ) CLASS TAine
local variables
If !( Empty(Alltrim(::oCLIENTE:VALUE)) ) // Esto es un control tedit
WITH OBJECT ::TDbfClientes // Tdataset
:SELECT()
:clearfilter() // limpio el filtro anterior
VARIABLES := chr(39) + ::oCLIENTE:VALUE + chr(39)+ "$ CLIENTE" //coloco la de filtrar en una variable el chr(39) son comillas
:SetFilter(VARIABLES) // filtro con el setfilter de tdataset, este busca cualquier que contega lo escrito en el tedit
END WITH
::oDBBClientes:Refresh() //Refresco tdbbrowes
::oDBBClientes:gotop() // Me voy al principio del filtro en el tdataset
::oMCantAnima:value := ::oDBBclientes:KeyCount() // esto lo utilizo para saber los registro que ha selecionado
else
::TDbfClientes:clearfilter()
END IF
RETURN Nil
Espero que te sirva
>
> ¿ O Como hacerlo con Set filter to ?
esto es como yo lo haria con set filter
METHOD BUSCARCLIENTE( oSender ) CLASS TAine
local variables
If !( Empty(Alltrim(::oCLIENTE:VALUE)) )
WITH OBJECT ::TDbfClientes
:SELECT()
SET FILTER TO chr(39) + ::oCLIENTE:VALUE + chr(39)+ "$ CLIENTE"
END WITH
::oDBBClientes:Refresh()
::oDBBClientes:gotop()
::oMCantAnima:value := ::oDBBclientes:KeyCount()
END IF
RETURN Nil
>
> ¿ O como hacer que cuando se usa TBrowse:lFilterBar Al Momento de darle
> enter al filtro se posicione en los registros filtrados ?
>
> De antemano, mil gracias.
>
>
--