Pasar datos de un grid a otro

[Jose_minglein2]

Dim mytable as datatable
mytable .Columns.Add(New DataColumn("columna1"))
mytable .Columns.Add(New DataColumn("columna2"))
dim i as integer = 0
while i<dgProductos.Items.Count
if ctype(dgProductos.Items(i).Items(0), checkbox).Checked
dim fila as tablrow = mytable.NewRow
fila("columna1") = dgProductos.Items(i).Cells("1").Text
fila("columna2") = DataGrid.Items(i).Cells("2").Text
...
mytable.rows.add(fila)
end if
i+=1
end while

DgCompra.DataSource = mytable
DgCompra.DataBind()

más o menos será así, dependerá de tus grid, pero esa es la idea