Pasar Fila de un Datagrid a Otro

[Erick21]

Hola ,Necesito pasar una o mas Fila de un DataGrid a otro lo he estado haciendo pero me marca un error ahi les mando mi codigo.
try

For Each drw as DataRow In dtb.Rows
dtb2.Rows.Add(Valores(drw))
dtb.Rows.Remove(drw)
Next >>> aqui me señala el error "Colección modificada; la operación de enumeración no se puede ejecutar."

Catch ex As Exception
Throw ex
End Try
End Sub
Function Valores(ByVal fila As DataRow) As String()
Dim contenido(dtb.Columns.Count - 1) As String
For x As Integer = 0 To contenido.Length - 1
contenido(x) = fila.Item(x)
Next
Return contenido
End Function

originalmente escontre este codigo pero para el DataGridview hice algunos cambios pero me muestra el error que esta en el For each. gracias de antemano

[Aquaventus]

necesitas pasar todos las filas ? porque tu error si bien no me equivoco te genera porque haces un recorrido a una dimension ya definida de filas y al momento de eliminar lo que haces es cambiar su valor y por eso lo del error, no seria mejor que copies todo al otro datagrid y al final borres el datagrid anterior?

[Erick21]

gracias por Reponder , lo que necesito es Mover Filas ya sea una , dos ,etc
gracias de antemano

[Aquaventus]

te dejo este link, chekealo Espero te sea de utilidad. Saludos!

Copiar o mover filas de un DG a otro DG

[Erick21]

Gracias , pues da la casualidad que con ese ejemplo realize el codigo que te muestro , te agradeceria si me ayudas con el codigo.. disculpa por las molestias.

[Aquaventus]

tu datagrid tiene un command field de seleccion? o le agregar un check a tus filas ?

[Erick21]

Hola Gracias por Responder, el codigo de mi datagrid es el siguiente:
private dtb As DataTable
Private drw As DataRow
Private dst As New DataSet
dtb = dst.Tables.Add
With dtb.Columns
.Add("Codigo", GetType(System.Int32))
.Add("Insumo", GetType(System.String))
.Add("Cantidad", GetType(System.Int32))
.Add("Unidad De Medida", GetType(System.String))
.Add("Precio", GetType(System.Single))
End With
dgdlista.DataSource = dtb

tal vez olvide mencionar que trabajo en VB.net 2005. gracias otra vez

[Erick21]

por favor necesito ayuda con esto en algo estoy fallando pero no encuentro el error. gracias otra vez

[Aquaventus]

Por lo que estoy viendo son datatables :S quieres pasar valores de un datatable a otro para luego este datatable almacenrlo en un datagrid? si estoy bien dimelo xq no me queda muy claro tu code

[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
 

[Erick21]

gracias por responder, usa el codigo que me muestras pero me sale el mismo error
"Colección modificada; la operación de enumeración no se puede ejecutar", lo he estado analisando y no encuentro la respuesta me estoy volviendo loco
agradeceria toda la ayuda posible.

[Aquaventus]

mmm otra cosa que puedes hacer es primero copias las filas seleccionadas y a la vez en un arreglo guardas la posicion de las seleccionadas, una vez terminado eso eliminas cada uno para que no se modifique en el recorrido del for each

[Aquaventus]

Mira erick21 algo asi :

Código vb:

Dim a as ArrayList
 
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()
a.Add(x)
Next
Return Contenido
End Function
 
Sub Copiar()
For Each Seleccion As DataRow In dt.Select
dt2.Rows.Add(ObtenerValoresFila(Seleccion))
'dt.Rows.Remove(Seleccion)
Next
remover()
End Sub
 
Sub remover()
For x As Integer = 0 To a.Count - 1
dt.Rows.RemoveAt(a(x))
Next
End Sub
 

si sale error avisas porque lo estoy haciendo a pura logica :s. Saludos!

[Erick21]

hola gracias por la ayuda , me sale el siguiente error en esta parte.

Function Valores(ByVal fila As DataRow) As String()

Dim contenido(dtb.Columns.Count() - 1) As String
For x As Integer = 0 To contenido.Length() - 1
contenido(x) = fila.Item(x).ToString()
a.Add(x) >>>>>> "Referencia a objeto no establecida como instancia de un objeto"
Next
Return contenido
End Function

al declarar el arraylist no deberia ir dim a as new arraylist ?

[Aquaventus]

Ops! si tienes razon, pero aun asi con el cambio que me dices igual te sale el mismo error?

[Erick21]

pues ahora me marca este error

Sub remover()

For x As Integer = 0 To lista.Count - 1
dtb.Rows.RemoveAt(a(x)) >>>>> No hay ninguna fila en la posición 1.
Next
End Sub

[Aquaventus]

si te marca eso es porque el error esta en el sub de copiar:

Código vb:

For Each Seleccion As DataRow In dt.Select '<- Aqui entonces debe ser otra propiedad porque no esta obteniendo los seleccionados en "dt.Select"
 

[Erick21]

Tienes Razon quedaria asi


Sub Copiar()

For Each Seleccion As DataRow In dtb.Select
dtb2.Rows.Add(Valores(Seleccion))
remover()
Next

End Sub

Sub remover()
Dim fila As Byte = dgdlista.CurrentCell.RowNumber

dtb.Rows.RemoveAt(fila)

End Sub

tmb hice un cambio aqui por que me seguia saliendo el mismo error
pero ahora me mueve todas las filas.

[Aquaventus]

mmm mira, en todo caso mandate tu proyecto a mi correo para revisarlo con todo y bd, si lo soluciono te lo envio y posteo la solucion aqui, te parece?. Saludos!

[Erick21]

Hola gracias por ayudarme , al final lo logre hacer pero cambie el datagrid a
datagridview y lo enlace a un datatable para trabajarlo de la misma manera.

Private Sub btneliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btneliminar.Click
Try
If dtb.Rows.Count = 0 Then
MessageBox.Show("Seleccione una Fila ", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
Else
Remover()
End If
Catch ex As Exception
Throw ex
End Try
End Sub
Sub Remover()
For Each Seleccion As DataGridViewRow In dgvlista.SelectedRows
dtb2.Rows.Add(Valores(Seleccion))
dgvlista.Rows.Remove(Seleccion)
Next

End Sub
Function Valores(ByVal fila As DataGridViewRow) As String()
Dim contenido(dgvlista.ColumnCount - 1) As String
For x As Integer = 0 To contenido.Length - 1
contenido(x) = fila.Cells(x).Value
Next
Return contenido
End Function

gracias nuevamente por tu tiempo , seguire investigando y aprendiendo mas.

[Aquaventus]

Excelente!, cualquier problema igual no olvides comentarnoslo para ayudarte. Saludos!.