Código:
For i = 0 To Form1.lsvProductos.Items.Count - 1
If Form1.lsvProductos.Items(i).SubItems(1).Text = nombre Then
'cant = Form1.lsvProductos.Items(i).SubItems(2).Text
cant = Form1.txtcantidad.Text.ToString
Form1.lsvProductos.Items(i).SubItems(2).Text = cant 'aqui le digo que en el subitem 2 ponga la cant que es el txtcantidad
subtotal = cant * costo
Form1.lsvProductos.Items(i).SubItems(4).Text = subtotal
Exit For
'b = True
End If
Next
'If b = False Then
If (i = Form1.lsvProductos.Items.Count) Then
Form1.lsvProductos.Items.Add(Form1.lsvProductos.Items.Count + 1)
Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(nombre)
Form1.lsvProductos.Items.SubItems.Add(Form1.txtcantidad.Text) ' aqui se supone que lo debo de agregar pero no lo hace
Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(costo)
subtotal = 1 * costo
Form1.lsvProductos.Items(Form1.lsvProductos.Items.Count - 1).SubItems.Add(subtotal)
End If