eliminar en arrays

evaa
28 de Enero del 2006
Hola! estoy haciendo un programita para clase, es una tienda de ordenadores donde tengo que añadir y eliminar componentes y editarlos con arrys, tengo el botón eliminar pero no me los elimina del array, aver si veis el fallo y me podeis ayudar. GRACIAS!!!!

Private Sub Eliminar_Click()
I = List(0).ListIndex
List(0).RemoveItem I
List(1).RemoveItem I
List(2).RemoveItem I
List(3).RemoveItem I

contador = contador - 1 'ELIMINAMOS EN EL ARRAY EL ELEMENTO

For j = indice + 1 To contador + 1 ' "FOR" NOS RENUMERA LOS COMPONETES DEL ARRAY AL ELIMINAR UNO DE LOS COMPONENTES QUE LO CONSTITULLEN
ordenador(j).TIPO = ordenador(j + 1).TIPO
ordenador(j).MARCA = ordenador(j + 1).MARCA
ordenador(j).MODELO = ordenador(j + 1).MODELO
ordenador(j).PRECIO = ordenador(j + 1).PRECIO
ordenador(j).SI = ordenador(j + 1).SI
ordenador(j).NO = ordenador(j + 1).NO
ordenador(j).FECHA = ordenador(j + 1).FECHA
Next j
End Sub

mvallejos
28 de Enero del 2006
Primero, al correr todos 1 hacia arriba, al final te quedan 2 elementos repetidos.
De todos modos, el array debería ser dinámico, así, después de correr todos 1 hacia arriba, redimensionas el array con un elemento menos

Redim Preserve ordenador(Ubound(ordenador)-1)

Saludos