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:

Private Sub LlenarGrid2()
Cadena = "SELECT * FROM Almacen INNER JOIN CatalogoPrecios ON Almacen.IdArticulo=CatalogoPrecios.IdArticuloC ORDER BY Almacen.Articulo ASC"
 
AbrirDAO
Set Dr = BaseDatos.OpenRecordset(Cadena)
If Dr.EOF <> Empty Then
    Exit Sub
End If
Do While Not Dr.EOF
    MSFlexGrid.AddItem vbTab & Trim(Dr!Grupo) & vbTab & Trim(Dr!Articulo) & vbTab & Trim(Dr!unidad) & vbTab & FormatNumber(Dr!Precio, 2)
    MSFlexGrid.TextMatrix(MSFlexGrid.Rows - 1, 0) = MSFlexGrid.Rows - 1
    MSFlexGrid.ColAlignment(4) = 1
    Dr.MoveNext
Loop
CerrarDAO
End Sub

Código:

Private Sub GuardaDesglose()
Cadena = "SELECT * FROM Desgloses"
 
AbrirDAO
Set Dr = BaseDatos.OpenRecordset(Cadena)
 
Dim I As Integer
I = 0
For I = 1 To MSFlexGrid1.Rows - 1
 
Dr.AddNew
 Dr!Fecha = MaskFecha.Text
 Dr!Reporte = Trim(TxtFolio.Text)
 Dr!IdSucursalD = iDSucursal
 Dr!IdArticuloD = iDArticulo
 Dr!Cantidad = Trim(MSFlexGrid1.TextMatrix(I, 4))
 Dr!Total = FormatNumber(MSFlexGrid1.TextMatrix(I, 6), 2)
 Dr.Update
Next I
CerrarDAO
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