Autocompletar un TextBox

Jorge Miranda
21 de Diciembre del 2004
Alguien puede pasarme un ejemplo de un procedimiento para autocompletar un Textbox de acuero a los datos de una tabla
Es Decir si en la tabla dice
Registros
Juan Alberto Soto Perez
Juan Perter Alvarado
Juana Sandoval
etc
Cuando Digite
J
Aparesca automaticamente el nombre completo del primimer Juan es decir "Juan Alberto Soto Perez" en ele TextBox y me permita segir digitando si yo escribo
Juana complete el nombre completo de Juana Sandoval
Gracias

ALFONSO
21 de Diciembre del 2004
HOLA ESPERO Y TE SIRVA, HACE TIEMPO TRATE DE HACERLO PERO NUNCA PUDE TERMINARLO SI LO LLEGAS A TERMINAR ME PASAS TU EJEMPLO POR CORREO OKS BYE QUE ESTES BIEN

[email protected]

select Distinct nunota, paciente, precio, fecha ;
from venta inner join producto on venta.nuproducto=producto.nuproducto;
inner join doctor on venta.nudoctor=doctor.nudoctor;
where alltrim(upper(doctor.nombre))=alltrim(upper(thisform.text1.value));
and alltrim(str(venta.nuproducto))=alltrim(thisform.text2.value);
and alltrim(upper(venta.paciente))=alltrim(upper(thisform.text3.value)) into cursor cRes
select cRes
if reccount()>0
thisform.grid1.visible=.T.
thisform.grid1.RecordSourceType=1
thisform.grid1.RecordSource='cRes'
thisform.grid1.refresh
else
thisform.grid1.visible=.F.
=messagebox('No hay registro dado de alta')
endif

luisr
21 de Diciembre del 2004
no lo hice, pero se que se puede hacer mediante el evento keypress, con alguna variable secundaria donde almacenas los valores de las teclas presionadas, realizas una busqueda, y almacenas el resultado encontrado en la variable relacionada al textbox. Suerte.