FoxPro/Visual FoxPro - busqueda incremental URGENTE?????

   
Vista:

busqueda incremental URGENTE?????

Publicado por mike (25 intervenciones) el 08/10/2008 00:51:30
gracias por la ayuda anteriormente , tengo una pregunta mas disculpen ,tengo un busqueda incremental por letra y me vota el resultado en una lista , al hacer clic en el registro que quiero la idea esque muestre ese registro en un formulario como le hago porfa, ayudenme es urgente
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:busqueda incremental URGENTE?????

Publicado por Saul (El Guatemalteco...) (676 intervenciones) el 08/10/2008 02:00:52
Hola..

Segun entiendo ya te funciona..?

Si es correcto lo que tienes que hacer es lo siguiente

1.- Opcion uno
Hacer una variable de retorno

Do form TuBusqueda with vRetorno

*Cuando cierres tu Form TuBusqueda
vRetorno = thisform.tuLista.value
Thisform.release

Select tuTabla
if seek(vRetorno)
Que desplique tus datos
endif

2.- Opcion Dos
Hacer una variable Puclica

PUBLIC vRetorno

DO FORM tuBusqueda

*Cuando cierres tu Form TuBusqueda
vRetorno = thisform.tuLista.value
Thisform.release

Select tuTabla
if seek(vRetorno)
Que desplique tus datos
endif

RELEASE vRetorno

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:busqueda incremental URGENTE?????

Publicado por MIGUEL (25 intervenciones) el 08/10/2008 17:37:56
creo que esa es la solucion , sin embargo lo que quiero es que el nombre del funcionario de la tabla funcionario por ejemplo que encuentre la busqueda en la lista se copie en el nombre de funcinario de mi tabla cardex , siu me ayudas te agradeceria un monton
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:busqueda incremental URGENTE?????

Publicado por neo (1601 intervenciones) el 08/10/2008 20:10:33
en el evento click de la lista:

select cardex
set order to nombre
x1=alltrim(Thisform.objetolista.nombre)
seek x1
If found()
replace nombre with x1

else
append blank
replace nombre with x1

endif

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar