busqueda incremental
Publicado por EDUARDO (139 intervenciones) el 12/09/2008 19:41:57
hola:
tengo un grid y un textbox en el cual pongo caracteres para que haga una busqueda interactiva.
En el evento interactive del text tengo:
SET EXACT OFF
SET NEAR ON
SELECT ALUMNOS
BUSCA=TRIM(THISFORM.TEXT1.VALUE)
SEEK BUSCA
IF FOUND()
xregist=recno()
THISFORM.GRID1.SETFOCUS
THISFORM.REFRESH
THISFORM.TEXT1.SETFOCUS
ENDIF
en la columna uno del grid ,en la propiedad dynamicbackcolor puse:
IIF(recno()=xregist,RGB(0,0,0),RGB(255,255,255))
lo que quiero lograr es que ademas de que,a medida que tipeo letras me posicione en el registro en el grid (esto lo hace correctamente) me pinte la celda de la columna uno en la que se posiciona (esto no lo hace).para que pinte la celda tengo que hacer click sobre la misma.
gracias por la ayuda
tengo un grid y un textbox en el cual pongo caracteres para que haga una busqueda interactiva.
En el evento interactive del text tengo:
SET EXACT OFF
SET NEAR ON
SELECT ALUMNOS
BUSCA=TRIM(THISFORM.TEXT1.VALUE)
SEEK BUSCA
IF FOUND()
xregist=recno()
THISFORM.GRID1.SETFOCUS
THISFORM.REFRESH
THISFORM.TEXT1.SETFOCUS
ENDIF
en la columna uno del grid ,en la propiedad dynamicbackcolor puse:
IIF(recno()=xregist,RGB(0,0,0),RGB(255,255,255))
lo que quiero lograr es que ademas de que,a medida que tipeo letras me posicione en el registro en el grid (esto lo hace correctamente) me pinte la celda de la columna uno en la que se posiciona (esto no lo hace).para que pinte la celda tengo que hacer click sobre la misma.
gracias por la ayuda
Valora esta pregunta
0