Free Web Hosting Provider - Web Hosting - E-commerce - High Speed Internet - Free Web Page
Search the Web

FoxCarlos : TextBox como Busqueda Incremental

FoxCarlos
TextBox como Busqueda Incremental [Previous Page] [Next Page] [Up] [Home Page] [Mail]

¿TexBox 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

[Previous] Nuevas formas de publicar tus tablas fox en Internet
[Up] Documentos
[Home] Home Page
[Mail] Send EMail to FoxCarlos



Gracias por visitar esta Pagina

Last modified on Tuesday 6 de June de 2000