Pasar Fila de un Datagrid a Otro

[Aquaventus]

Prueba haciendo esto :

Código vb:

Function ObtenerValoresFila(ByVal fila As DataRow) As String()
        Dim Contenido(dt.Columns.Count() - 1) As String
        For x As Integer = 0 To (Contenido.Length() - 1)
            Contenido(x) = fila.Item(x).ToString()
        Next
        Return Contenido
    End Function
 
    Sub mover()
        For Each Seleccion As DataRow In dt.Select
            dt2.Rows.Add(ObtenerValoresFila(Seleccion))
            dt.Rows.Remove(Seleccion)
        Next
    End Sub