Busqueda Incremental VFox

La busqueda incremental consiste que cuando el usuario va introduciendo datos se muestre los datos más cercano que cumple las condiciones y que así el usuario no tenga que escribir todos los datos o que el propio textbox lo vaya encontrando.

Ejemplo de un Formulario:En el text de Descripcion escribi los siguiente :

En el InteractiveChange

DO CASE
CASE EMPTY(THISFORM.Text1.VALUE)
SET FILTER TO
CASE THISFORM.combo1.LISTINDEX = 1 && codigo de equipo
SET FILTER TO UPPER(ALLTRIM(THISFORM.Text1.VALUE)) $ STR(codequipo)
CASE THISFORM.combo1.LISTINDEX = 2 && Si esta ordenado por nombre
set filter to trim(thisform.text1.value)=left(apenom,len(trim(thisform.text1.value)))
ENDCASE
GO TOP
THISFORM.REFRESH

En el combo de Buscar por escribi los siguiente ( el ejemplo esta dado para que puedas buscar por un numero Ej: un cogigo o dni. o Bien por un apellido o una descripcion) :

En el InteractiveChange

DO CASE
CASE THIS.LISTINDEX = 1 && por codigo de equipo
SET ORDER TO codequipo ASCENDING

CASE THIS.LISTINDEX = 2 && por nomnre de jugador
SET ORDER TO apenom ASCENDING
ENDCASE
THISFORM.TEXT1.setfocus
THISFORM.Text1.INTERACTIVECHANGE
THISFORM.REFRESH
RETURN 1