consulta multiple

[Ives Andrey Rodríguez]

cuando se ingresa datos en un text box se debe buscar por nombre, identifica, direccion y telefono al dar click en el boton buscar, pero a veces no funciona bien la busqueda.

este es el codigo del boton

SELECT clientes2

IF !EMPTY(THISFORM.Text1.Value)
GO TOP
SET ORDER TO
SET ORDER TO nombre
SEEK ALLTRIM(thisform.text1.Value)
thisform.Refresh
ENDIF


IF !EMPTY(THISFORM.Text1.Value)
GO TOP
SET ORDER TO
SET ORDER TO identifica
SEEK ALLTRIM(thisform.text1.Value)
thisform.Refresh
ENDIF

IF !EMPTY(THISFORM.Text1.Value)
GO TOP
SET ORDER TO
SET ORDER TO direccion
SEEK ALLTRIM(thisform.text1.Value)
thisform.Refresh
ENDIF

IF !EMPTY(THISFORM.Text1.Value)
GO TOP
SET ORDER TO
SET ORDER TO telefono
SEEK ALLTRIM(thisform.text1.Value)
thisform.Refresh
ENDIF

[Mik]

Intenta colocar despues de cada SEEK la función FOUND() para que te indique si la busqueda tuvo exito o no. Algo asi:

SEEK ALLTRIM(thisform.text1.Value)

IF FOUND()

   WAIT 'Busqueda exitosa!' WIND NOWA

   RETURN

ENDIF

Saludos

Miguel Herbias

LIMA-PERU

[ZeRoberto]

Revisar la ayuda de 

SET KEY TO

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/16e20314-4ab1-45a3-9e1e-62efe619e825n%40googlegroups.com.

[ggcagnola gmail]

deberías usar la función "seek()" que te permite buscar en otra tabla, sin necesidad de seleccionarla.. además, y capaz que el problema sea el índice también seleccionas el ordenamiento...

(aparte de ahorrarte una línea de código)

IF SEEK(ALLTRIM(thisform.text1.Value))

   WAIT 'Busqueda exitosa!' WIND NOWA

   RETURN

ENDIF

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/1ee6bedd-2670-4069-b021-f16fad8f8f92n%40googlegroups.com.