• Domingo 17 de Noviembre de 2024, 20:30

Autor Tema:  Problemas con listbox  (Leído 2000 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