Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5
Ingresar detalle venta en un ListView
#1
Código:
Modulo para ingresar datos a un detalle de ventas en un ListView

Sub AgregarItem()
    Dim Item As ListItem
    Dim total As Currency
    Dim I As Integer
   
    Index = 0
    If TxtCodigo.Text <> "" Then
        Index = Index + 1
        Set Item = LV.ListItems.Add(Index, , TxtCodigo.Text)
        Item.SubItems(1) = TxtProducto.Text
        Item.SubItems(2) = Format(TxtPrecio.Text, "Currency")
        Item.SubItems(3) = TxtCantidad.Text
        Item.SubItems(4) = Format((TxtPrecio.Text) * Val(TxtCantidad.Text), "Currency")
       
       
        For I = 1 To LV.ListItems.Count
            total = total + LV.ListItems(I).SubItems(4)
        Next
    Else
        MsgBox "No hay datos para ingresar"
        Exit Sub
    End If
   
    TxtTotal.Text = Format(total, "Currency")
End Sub
Responder


Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)