Hola a todos, envio este mensaje puesto tengo una duda con respecto a como pasar registros o elementos de una lista (ListBox) a otra.
Esto es si lista1 se llena de datos. Ahora por medio de botones que tienen los siguientes dibujos:
>> //Pasar todos los elementos de lista1 a lista2
> //Pasa los elementos seleccionados de la lista1 a la lista2
<< //Pasa todos los elementos de la lista2 a la lista1
< // Pasa los elementos seleccionados de la lista2 a la lista1
Como se puede observar lo que quiero hacer es muy parecido a lo que muchas aplicaciones pueden hacer.
El problema que tengo es en cuanto a pasar los datos que se seleccionan de una lista a otra. (El de todos ya me quedo
). Este es el codigo que estoy utizando para realizar dicha tarea:
Código:
If lstExcel.ListCount <> 0 Then
For j = 0 To lstExcel.ListCount - 1
If lstExcel.Selected(j) = True Then
lstClientesReg.AddItem lstExcel.List(j)
lstExcel.RemoveItem j
End If
Next
Else
MsgBox "No hay elementos a cargar", vbInformation
End If
El problema es cuando selecciono uno de los primeros elementos de mi lista1 (que viene siendo=> lstExcel) me marca un error de:
Error 381. El indice de la matriz de propiedades no es valido
Y ese mismo error se presenta si selecciono mas de un elemento de la lista1 y quiero pasarlo a la lista2. Alguien me podria decir como solucionar esta situación
