FoxPro/Visual FoxPro - boton buscar

   
Vista:

boton buscar

Publicado por BULL (42 intervenciones) el 20/09/2007 21:48:55
buenas amigos necesito que me ayuden necesito que el boton buscar me busque en la tabla por dos campos que son peri_impo y nombree porque hay varios archivos con la misma fecha y diferentes nombres y diferentes diferentes fechas con iguales nombres por eso necesito que sean esos dos campos ya ue no hay 2 fechas y dos nombres iguales. yo tengo este codigo que es para buscar solo por el peri_impo:

IF EMPTY(Thisform.pERI_IMPO.value)
MESSAGEBOX("Este campo no puede estar vacío",0+16,"Error")
Thisform.perI_IMPO.SetFocus()

else

select datos_calculo
Locate FOR peri_impo=Thisform.peri_IMPO.value
IF found() then
Thisform.mostrar
else
messagebox("No existe registro, intente de nuevo",0+48,"Buscar")
return 0
endif
ENDIF

por favor si me pueden ayudar
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:boton buscar

Publicado por lalo (72 intervenciones) el 20/09/2007 22:39:06
Que pasará poniendo así:

IF EMPTY(Thisform.pERI_IMPO.value and Thisform.otroNombre.value )
MESSAGEBOX("Este campo no puede estar vacío",0+16,"Error")
Thisform.perI_IMPO.SetFocus()

else

select datos_calculo
Locate FOR peri_impo=Thisform.peri_IMPO.value and Thisform.otroNombre.value
IF found() then
Thisform.mostrar
else
messagebox("No existe registro, intente de nuevo",0+48,"Buscar")
return 0
endif
ENDIF

**Siempre es mejor usar SEEK() en lugar de LOCATE
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