Estimados,
Tengo un form que contiene un TDBFBrowse con algunas columnas y en todas está la propiedad lFilterBar en verdadero.
Estoy buscando desde hace un buen rato cómo hacer para que aparezca "cliqueada" una de las FilterBar al mostrar el form pero no encuentro nada.
Por ejemplo necesitaría algo asi FilterBar:click() en el OnInitialize del form, con la posibilidad de indicar cual de todas las filterbar quiero que aparezca cliqueada.
¿se puede hacer? ¿hay alguna documentación para saber como "acceder a las filterbar"?
desde ya muchas gracias por cualquier orientación que me puedan dar.
Saludos
Daniel
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.
Activar una FilterBar
Re: Activar una FilterBar
No es exactamente lo que pides pero al menos hay una manera de poder introducir un texto en un filtro
:oBrowse:aCols[nAt]:oHeader:cFilter:="Maria"
:oBrowse:aCols[nAt]:oHeader:cFilter:="Maria"
BiSoft Desarrollo de software profesional
http://www.bisoft.es
http://www.bisoft.es
Re: Activar una FilterBar
Bingen,
Lo resolví con algo como lo que me indicas.
Agregué un edit al form, el cual tiene el foco cuando se abre dicho form y luego utilicé este método y quedó funcionando perfecto.
METHOD oDetalleOnChar( oSender, nKey, nFlags ) CLASS TFormBuscarArticulo
do case
case 47 <= nKey .and. nKey <= 57 // Números y /
::oDBFBrowseMenu:aCols[2]:cFilter := AllTrim(oSender:Value) + Upper(Chr(nKey))
case 97 <= nKey .and. nKey <= 122 // Letras
::oDBFBrowseMenu:aCols[2]:cFilter := AllTrim(oSender:Value) + Upper(Chr(nKey))
case nKey == 8 // Back Espace
::oDBFBrowseMenu:aCols[2]:cFilter := SubStr(AllTrim(oSender:Value),1,Len(AllTrim(oSender:Value))-1)
endcase
RETURN Nil
Muchas gracias y saludos
Lo resolví con algo como lo que me indicas.
Agregué un edit al form, el cual tiene el foco cuando se abre dicho form y luego utilicé este método y quedó funcionando perfecto.
METHOD oDetalleOnChar( oSender, nKey, nFlags ) CLASS TFormBuscarArticulo
do case
case 47 <= nKey .and. nKey <= 57 // Números y /
::oDBFBrowseMenu:aCols[2]:cFilter := AllTrim(oSender:Value) + Upper(Chr(nKey))
case 97 <= nKey .and. nKey <= 122 // Letras
::oDBFBrowseMenu:aCols[2]:cFilter := AllTrim(oSender:Value) + Upper(Chr(nKey))
case nKey == 8 // Back Espace
::oDBFBrowseMenu:aCols[2]:cFilter := SubStr(AllTrim(oSender:Value),1,Len(AllTrim(oSender:Value))-1)
endcase
RETURN Nil
Muchas gracias y saludos