• Sábado 21 de Diciembre de 2024, 13:16

Autor Tema:  Problemas con listbox  (Leído 2010 veces)

graluc

  • Nuevo Miembro
  • *
  • Mensajes: 22
    • Ver Perfil
Problemas con listbox
« en: Sábado 5 de Febrero de 2011, 22:18 »
0
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