none
Al copiar fila seleccionada de DATAGRIDVIEW1 a DATAGRIDVIEW2 siempre copia la primera fila por default RRS feed

  • Pregunta

  • Buenos días, al copiar la fila seleccionada de DataGridView1 a DataGridView2 siempre copia la primera fila por default. Adjunto el código que utilizo y si pueden mejorarlo y corregirlo,le agradecería. Lo que deberia de ejecutar el código es lo siguiente:

    1° Buscar valor en DataGridView1 desde Textbox2

    2° Seleccionar la fila del valor hallado en DataGridView1

    3° Copiar la fila seleccionada a DataGridView2

    4° Eliminar fila selecionada de DataGridView1

    5° Retornar a TextBox2, limpiarlo y deseleccionar todo en DataGridView1

    Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
    
            For i As Integer = 0 To DataGridView1.Rows.Count - 2
                For x As Integer = 0 To DataGridView1.ColumnCount - 1
                    If DataGridView1.Rows(i).Cells(x).Value.ToString.Contains(TextBox2.Text) Then
                        DataGridView1.CurrentCell = DataGridView1.Rows(i).Cells(x)
                        DataGridView1.Rows(i).Selected = True
    
                        For Each row As DataGridViewRow In DataGridView1.SelectedRows
                            Dim documento As String = row.Cells("Documento").Value
                            Dim denominación As String = row.Cells("Denominación").Value
                            Dim cantidad_de_pedido As String = row.Cells("Cantidad_de_pedido").Value
                            Dim material As String = row.Cells("Material").Value
                            DataGridView2.Rows.Add(documento, Denominación, Cantidad_de_pedido, Material)
                        Next
    
                        For Each r As DataGridViewRow In DataGridView1.SelectedRows
                            DataGridView1.Rows.Remove(r)
                        Next
    
                        DataGridView1.ClearSelection()
                        TextBox2.Text = ""
    
                        Exit Sub
                    End If
                Next x
            Next i
    
            MsgBox("Error de Picking")
            DataGridView1.ClearSelection()
            TextBox2.Text = ""
    
        End Sub

    lunes, 3 de febrero de 2020 15:38

Respuestas

Todas las respuestas