javier
22 de Diciembre del 2003

Tengo un boton para buscar un registro en una form de foxpro, el boton tiene el siguiente codigo:

BUSCAR=0
BUSCAR=VAL(THISFORM.Text23.VALUE)
SEEK BUSCAR ORDER TAG campo1
OF d:javierinterfaz_de_validacionprueba.dbf
IF !FOUND()
CTEXTO='REGISTRO NO ENCONTRADO ¿DESEA BUSCAR DE NUEVO?'
NTIPODEDIALOGO=4+32+256
CTITULO='MENSAJE'
NRESPUESTA=MESSAGEBOX(CTEXTO,NTIPODEDIALOGO,CTITULO)
DO CASE
CASE NRESPUESTA=6
THISFORM.Text23.SETFOCUS()
CASE NRESPUESTA=7
THISFORM.Command2.SETFOCUS()
ENDCASE
ELSE
THISFORM.REFRESH
ENDIF

Sin embargo marca un error de set order o algo asi, alguien me podria ayudar por favor.

Gracias

quinteroff
22 de Diciembre del 2003

ANTES QUE NADA TIENES QUE INFORMARTE DE LAS FUNCIONES QUE ESTAS TRABAJANDO
LA FUNCION SEEK() SE UTILIZA CON UN ORDERNADOR
SET ORDER TO CAMPOCLAVE(ANES DEL SEEK PORSUPUESTO).
BYE

javier
22 de Diciembre del 2003

Ya se lo del set order to, sin embargo sigo teniendo un error, alguien puede decirme cual es:

BUSCAR=0
BUSCAR=VAL(THISFORM.Text23.VALUE)
SELECT prueba
SET ORDER TO campo1
SEEK BUSCAR
IF !FOUND()
CTEXTO='REGISTRO NO ENCONTRADO ¿DESEA BUSCAR DE NUEVO?'
NTIPODEDIALOGO=4+32+256
CTITULO='MENSAJE'
NRESPUESTA=MESSAGEBOX(CTEXTO,NTIPODEDIALOGO,CTITULO)
DO CASE
CASE NRESPUESTA=6
THISFORM.Text23.SETFOCUS()
CASE NRESPUESTA=7
THISFORM.Command2.SETFOCUS()
ENDCASE
ELSE
THISFORM.REFRESH
ENDIF

gracias