Truco Fox: TextBox incremental

En alguna ocasión nos puede interesar que uno de nuestros textbox sea incremental: o sea, que cuando el usuario vaya introduciendo datos se muestre el campo 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.

Para poder hacer esto debemos hacer:

1. Crea una tabla llamada Tabla1.
2. Crea un campo llamado campo1.
3. Crea un índice normal sobre ese registro que se llame también campo1.
4. Mete unos cuantos registros.
5. Crea un formulario
6. Ponle un Textbox
7. En el Lostfocus del Textbox escribe:

* Activa el modo de la tecla insertar
insmode(.t.)

8. En el InteractiveChange del LostFocus escribe:

lnInsercionP = This.SelStart
lcBuscaStr = substr(this.value,1,lnInsercionP)
if !empty(lcBuscaStr)
   =seek(upper(lcBuscaStr),"TABLA1","CAMPO1")
   if found("TABLA1")
      THIS.VALUE=tabla1.campo1
      =insmode(.f.)
   else
      this.value=lcBuscaStr
      =insmode(.t.)
   endif
else
   this.value=space(0)
endif
this.SelStart = lnInsercionP