Pasar elementos de un listview a otro listview VB6

Holiiiisss..! ¿Cómo debe ser la función para que pasar un elemento de un LVW a otro con un botón asignar? Este código tengo pero me da error... Me dice que el indice esta fuera de los términos
------------------------------------------------------------------
Private Sub cmdAsignar_Click()
dim cant as integer
If LVW1.SelectedItem <> 0 Then
  For i = 0 To LVW1.ListItems.Count
    cant = InputBox("ingrese la cantidad que desea: ")
    With LVW2.ListItems.Add
        .Text = LVW1.SelectedItem.Text
        .SubItems(1) = LVW1.ListItems(i).SubItems(1)
        .SubItems(2) = cant
        .SubItems(3) = Val(LVW1.ListItems(i).SubItems(2))
    End With
   Exit For
  Next i
  End If
End Sub
------------------------------------------------
El LVW1 tiene como columnas: idPrestacion, descripción, precio
LVW2 tiene como columnas: idPrestacion, descripción, cantidad, precio
--------------------
No se programar bien.. Por eso no se si esta bien lo que estoy haciendo, ¿igual en el LVW2 en la columna descripción en vez de traerla tal cual esta en el LVW1 me trae el nro de descripción... Que tengo que cambiar?
1

1 respuesta

Respuesta
1
Acá te doy la solución:
A tu código le hice unos cambios para que funcione:
Dim cant As Integer
If LVW1.SelectedItem <> 0 Then
    cant = InputBox("ingrese la cantidad que desea: ")
    With LVW2.ListItems.Add
        .Text = LVW1.SelectedItem.Text
        .SubItems(1) = LVW1.SelectedItem.SubItems(1)
        .SubItems(2) = cant
        .SubItems(3) = LVW1.SelectedItem.SubItems(2)
    End With
End If
El for no era necesario.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas