Pregunta: | 67796 - AYUDA CON ESTE CÓDIGO QUE ME MARCA ERROR |
Autor: | Jose Antonio |
Buenas estoy haciendo un programa de una tienda de ventas y el siguiente código en el botón "Aceptar": USE BODEGA IF LEN(ALLTRIM(THISFORM.TXT_CODIGO.VALUE))= 0 THEN MESSAGEBOX("NO HAY NINGUN CODIGO ESCRITO") ELSE DO WHILE NOT EOF() IF THISFORM.TXT_CODIGO.VALUE=codigo THEN THISFORM.LIST1.ADDITEM(ALLTRIM( Producto + " " + "$" + Precio)) THISFORM.LBL_SUBT.CAPTION = Precio ENDIF SKIP LOOP ENDDO MESSAGEBOX("NO EXISTE PRODUCTO,0,"AVISO") ENDIF Lo que pasa es que al momento de escribir el codigo y dar aceptar me aparece: "Incompatibilidad entre el tipo de operador y el tipo de operando." Y me señala esta parte: IF THISFORM.TXT_CODIGO.VALUE=codigo THEN Pero en otro formulario lo tengo igual solo cambia el nombre del TextBox si me pudieran ayudar o dar un ejemplo de como puedo arreglar el error que me marca. Muchas Gracias :) |