Introducir valores en un array

[maialenlopez]

Iniciado por pkj

Creo que lo que intentas es algo asi:

Código vb:

Dim arraygmn() As String ' nuestro array
  Dim Contador As Long ' para contar las lineas
  Dim iContadorLineasSolicitudPM As Long ' para redimensionar el array
 
 
  iContadorLineasSolicitudPM = - 1 ' ponemos el contador a - 1
  
 
  ' uso 2 contadores diferentes porque no se lo que intentas
  ' pero igual podria ser el mismo
 
  Contador = 0
 
  Do While contador < lineas.Count  ' mientras haya lineas
 
    ' creamos un nuevo elemento
    iContadorLineasSolicitudPM = iContadorLineasSolicitudPM + 1
    ' lo creamos con preserve para mantener lo que ya habia
    ReDim Preserve arraygmn(iContadorLineasSolicitudPM, 3)
 
    ' guardamos los 4 valores
      arraygmn(iContadorLineasSolicitudPM, 0) = gmn(0)
      arraygmn(iContadorLineasSolicitudPM, 1) = gmn(1)
      arraygmn(iContadorLineasSolicitudPM, 2) = gmn(2)
      arraygmn(iContadorLineasSolicitudPM, 3) = gmn(3)
 
 
    contador = contador + 1
 
    'lo que no tengo claro es como cargas la matriz gmn y si
    'tiene siempre los mismos valores, porque no se recarga.
 
  Loop
 

Suerte

Esto es lo que necesito, gracias. El contador es el mismo así que lo único que he cambiado es el nombre de este y ya esta.
Muchas gracias.

Ahora tengo otra duda, necesito guardar en el mismo Do While el contenido de otros arrays en otros, es decir, tengo estos valores uom(0), uom(1) y uom(2). Estos necesito guardarlos en 3 arrays diferentes arr1, arr2 y arr3 que los he declarado de esta forma:

Código vb:

Dim arr1() As STring
Dim arr2() As STring
Dim arr3() As STring
Do While contador < lineas.Count  ' mientras haya lineas
   Redim Preserve arr1
   Redim Preserve arr2
   Redim Preserve arr3
   arr1(contador) = uom(0)
   arr2(contador) = uom(1)
   arr2(contador) = uom(2)
   contador = contador +1
Loop
 

Lo que no se es como ir redimensionando los arrays.

Gracias por la solución y los comentarios del código anterior, me ha servido de gran ayuda