Programación General > Visual FoxPro

 Problemas con listbox

(1/1)

graluc:
Hola,tengo un formulario de facturación con un combobox y un listbox. Quiero que al hacer click en el botón Comprar,  los datos del producto seleccionado en el combo aparezcan el el listbox. todo bien menos el nombre que no aparece ¿que puse mal ? Acá mando parte del código. Gracias por su ayuda.

IF THISFORM.cboProducto.ListIndex=0
      WAIT WIND "Seleccione el producto" TIMEOUT 2
ELSE
           THISFORM.lstCompras.ADDITEM(THISFORM.cboProducto.value)
   
           THISFORM.lstCompras.LIST(THISFORM.lstCompras.ListCount,2)=PADR(ALLTRIM(THISFORM.cboProducto.Text),40)           THISFORM.lstCompras.LIST(THISFORM.lstCompras.ListCount,3)=PADL(ALLTRIM(THISFORM.txtCantidad.value),6)

            THISFORM.lstCompras.LIST(THISFORM.lstCompras.ListCount,4)="$ " + STR(THISFORM.txtPrecio.value,8,2)

            m.total=m.total+ VAL(THISFORM.txtCantidad.value) * THISFORM.txtPrecio.value

         THISFORM.REFRESH

ENDIF

THISFORM.cboProducto.SETFOCUS

Navegación

[0] Índice de Mensajes