Alguien me puede explicar como crear una matriz de datos. Quiero guardar el Id en una y vaciarlo en otra tabla.

Esto es lo que hago:

Código:
  1. Private Sub LlenarGrid2()
  2. Cadena = "SELECT * FROM Almacen INNER JOIN CatalogoPrecios ON Almacen.IdArticulo=CatalogoPrecios.IdArticuloC ORDER BY Almacen.Articulo ASC"
  3.  
  4. AbrirDAO
  5. Set Dr = BaseDatos.OpenRecordset(Cadena)
  6. If Dr.EOF <> Empty Then
  7.     Exit Sub
  8. End If
  9. Do While Not Dr.EOF
  10.     MSFlexGrid.AddItem vbTab & Trim(Dr!Grupo) & vbTab & Trim(Dr!Articulo) & vbTab & Trim(Dr!unidad) & vbTab & FormatNumber(Dr!Precio, 2)
  11.     MSFlexGrid.TextMatrix(MSFlexGrid.Rows - 1, 0) = MSFlexGrid.Rows - 1
  12.     MSFlexGrid.ColAlignment(4) = 1
  13.     Dr.MoveNext
  14. Loop
  15. CerrarDAO
  16. End Sub

Código:
  1. Private Sub GuardaDesglose()
  2. Cadena = "SELECT * FROM Desgloses"
  3.  
  4. AbrirDAO
  5. Set Dr = BaseDatos.OpenRecordset(Cadena)
  6.  
  7. Dim I As Integer
  8. I = 0
  9. For I = 1 To MSFlexGrid1.Rows - 1
  10.  
  11. Dr.AddNew
  12.  Dr!Fecha = MaskFecha.Text
  13.  Dr!Reporte = Trim(TxtFolio.Text)
  14.  Dr!IdSucursalD = iDSucursal
  15.  Dr!IdArticuloD = iDArticulo
  16.  Dr!Cantidad = Trim(MSFlexGrid1.TextMatrix(I, 4))
  17.  Dr!Total = FormatNumber(MSFlexGrid1.TextMatrix(I, 6), 2)
  18.  Dr.Update
  19. Next I
  20. CerrarDAO
  21. End Sub

Ok, en el grid vacio el nombre del articulo, pero quiero ir guardando el Id en la variable para guardar el Id, no el articulo, y llamarlo cuando lo necesite por el id no por el nombre (Creo que cantinflee !)

De antemano, gracias