Karina Retana
14 de Julio del 2003

tengo este problema estoy buscando un registro de una tabla, cuando lo encuentra me envia la informacion y cuando no me envia un mensaje, pero le doy aseptar no me regresa el foco en la caja de texto donde estoy ingresando el dato a buscar.

Eva
14 de Julio del 2003

A ver si esto puede servir:
Solo debes escribir la orden para que te regrese al boton que quieres, por ejemplo,
THISFORM.-NOMBRE DEL BOTON-SETFOCUS

El nombre del boton sera al boton que quieras que te regrese el foco...

elmer
14 de Julio del 2003

si estas utilizando un textbox en un formulario
y deseas que despues de cualquier de x accion te devuelva el foco a el mismo, debes hacer lo siguiente.

ej:
seek codprod
if ! found()
wait window "no existe"
retu.f.
endif
el retu .f. te devuel al punto de partida.

si puedp ayudarte en algo mas escribeme :
[email protected]

osvaldo
14 de Julio del 2003

haber si esto te sirve..
valor_buscar = thisform.txtcampo.value
select tabla
locate for alltrim(valor_buscar) = tabla.valor
if found()
wait wind "encontre" + tabla.valor
else
wait wind "registro no encontado"
endif
thisform.txtcampo.setfocus()