Desplegar datos de un archivo .dbf Visual Fox

Bueno Quiero desplegar la búsqueda de datos a partir de un código.
Tengo un formulario el cual contiene lo siguiente:
txtcodigo_i
txtcodigo_f

En la base de datos lo siguiente:
codigo_i
codigo_f

Lo que deseo hacer es que cuando escriba el código en el "txtcodigo_i" el cual es numérico y de 5 dígitos, me despleque el código de fabrica osea en el "txtcodigof" siempre a partir de una base de datos llamada "product.dbf"
El primero error que me desplegá es el siguiente "incompatibilidad entre el tipo de operador y el tipo de operando"
esto es lo que tengo llevo un dia y no lo logro :D
CLOSE DATABASES
USE product
LOCATE FOR thisform.txtcodigo_i.Value=codigo_i
IF thisform.txtcodigo_i.Value=codigo_i
thisform.txtCodigo_f.Value=codigo_f
ELSE
MESSAGEBOX('no existe el código')
Endif

1 Respuesta

Respuesta
1
Prueba con esto en el lostfous del txtcodigo_i
Use Product
locate all for upper(alltrim(this.value))=alltrim(upper(codigo_i))
if found()
thisform.txtcodigo_f.value=codigo_f
else
thisform.txtcodigo_f.value=""
Messagebox("Código no existe", 0)
Endif
Thisform. Refresh

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas