Skip to main content
Arreglado problema si no se seleccionaba una fila
Origen Enlace
smt
  • 600
  • 4
  • 16
Private Sub BotonSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.Click 

    If Agenda.Rows.Count > 1 Then
        Dim i As Integer = Agenda.CurrentRow.Index + 1

        If i < Agenda.SelectedRowsRows.Count >- 01 Then 
 'Comprueba si se ha seleccionado alguna fila     TextBoxNombre.Text = Agenda.Item(0, i).Value
        If    TextBoxTelefono.Text = Agenda.Item(1, i).Value
 <           TextBoxDireccion.Text = Agenda.Item(2, i).Value

            Agenda.CurrentCell = Agenda.Rows(i).CountCells(0)
 - 1 Then 'Comprueba si la siguiente selección es menor que elAgenda.Rows(i).Selected número= True
 total de filas del DataGridView   ElseIf Agenda.Rows.Count = 2 Then
            TextBoxNombre.Text = Agenda.Item(0, i0).Value
            TextBoxTelefono.Text = Agenda.Item(1, i0).Value
            TextBoxDireccion.Text = Agenda.Item(2, i0).Value
 

            Agenda.CurrentCell = Agenda.Rows(i0).Cells(0) 'Selecciona la primera celda de la fila siguiente
            Agenda.Rows(i0).Selected = True 'Selecciona la fila siguiente
        End If
    End If

End Sub

Private Sub btnAtras_Click(sender As Object, e As EventArgs) Handles btnAtras.Click

    If Agenda.SelectedRowsRows.Count > 01 Then 
 'Comprueba si se ha seleccionado alguna fila If Agenda.CurrentRow.Index > 0 Then
        If    Dim i As Integer = Agenda.CurrentRow.Index >- 01

 Then 'Comprueba si la posición de la fila actual es mayor queTextBoxNombre.Text = Agenda.Item(0, loi).Value
 que indica que no es la primera fila    TextBoxTelefono.Text = Agenda.Item(1, i).Value
            DimTextBoxDireccion.Text = Agenda.Item(2, i).Value

 As Integer          Agenda.CurrentCell = Agenda.CurrentRowRows(i).IndexCells(0)
 - 1          Agenda.Rows(i).Selected = True
        ElseIf Agenda.Rows.Count = 2 Then
            TextBoxNombre.Text = Agenda.Item(0, i0).Value
            TextBoxTelefono.Text = Agenda.Item(1, i0).Value
            TextBoxDireccion.Text = Agenda.Item(2, i0).Value

            Agenda.CurrentCell = Agenda.Rows(i0).Cells(0)
            Agenda.Rows(i0).Selected = True
        End If
    End If
End Sub
Private Sub BotonSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.Click
    Dim i As Integer = Agenda.CurrentRow.Index + 1

    If Agenda.SelectedRows.Count > 0 Then 'Comprueba si se ha seleccionado alguna fila
        If i < Agenda.Rows.Count - 1 Then 'Comprueba si la siguiente selección es menor que el número  total de filas del DataGridView
            TextBoxNombre.Text = Agenda.Item(0, i).Value
            TextBoxTelefono.Text = Agenda.Item(1, i).Value
            TextBoxDireccion.Text = Agenda.Item(2, i).Value
 

            Agenda.CurrentCell = Agenda.Rows(i).Cells(0) 'Selecciona la primera celda de la fila siguiente
            Agenda.Rows(i).Selected = True 'Selecciona la fila siguiente
        End If
    End If

End Sub

Private Sub btnAtras_Click(sender As Object, e As EventArgs) Handles btnAtras.Click

    If Agenda.SelectedRows.Count > 0 Then 'Comprueba si se ha seleccionado alguna fila
        If Agenda.CurrentRow.Index > 0 Then 'Comprueba si la posición de la fila actual es mayor que 0, lo que indica que no es la primera fila
            Dim i As Integer = Agenda.CurrentRow.Index - 1

            TextBoxNombre.Text = Agenda.Item(0, i).Value
            TextBoxTelefono.Text = Agenda.Item(1, i).Value
            TextBoxDireccion.Text = Agenda.Item(2, i).Value

            Agenda.CurrentCell = Agenda.Rows(i).Cells(0)
            Agenda.Rows(i).Selected = True
        End If
    End If
End Sub
Private Sub BotonSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.Click 

    If Agenda.Rows.Count > 1 Then
        Dim i As Integer = Agenda.CurrentRow.Index + 1

        If i < Agenda.Rows.Count - 1 Then 
            TextBoxNombre.Text = Agenda.Item(0, i).Value
            TextBoxTelefono.Text = Agenda.Item(1, i).Value
            TextBoxDireccion.Text = Agenda.Item(2, i).Value

            Agenda.CurrentCell = Agenda.Rows(i).Cells(0)
            Agenda.Rows(i).Selected = True
        ElseIf Agenda.Rows.Count = 2 Then
            TextBoxNombre.Text = Agenda.Item(0, 0).Value
            TextBoxTelefono.Text = Agenda.Item(1, 0).Value
            TextBoxDireccion.Text = Agenda.Item(2, 0).Value

            Agenda.CurrentCell = Agenda.Rows(0).Cells(0)
            Agenda.Rows(0).Selected = True
        End If
    End If

End Sub

Private Sub btnAtras_Click(sender As Object, e As EventArgs) Handles btnAtras.Click

    If Agenda.Rows.Count > 1 Then 
        If Agenda.CurrentRow.Index > 0 Then
            Dim i As Integer = Agenda.CurrentRow.Index - 1

            TextBoxNombre.Text = Agenda.Item(0, i).Value
            TextBoxTelefono.Text = Agenda.Item(1, i).Value
            TextBoxDireccion.Text = Agenda.Item(2, i).Value

            Agenda.CurrentCell = Agenda.Rows(i).Cells(0)
            Agenda.Rows(i).Selected = True
        ElseIf Agenda.Rows.Count = 2 Then
            TextBoxNombre.Text = Agenda.Item(0, 0).Value
            TextBoxTelefono.Text = Agenda.Item(1, 0).Value
            TextBoxDireccion.Text = Agenda.Item(2, 0).Value

            Agenda.CurrentCell = Agenda.Rows(0).Cells(0)
            Agenda.Rows(0).Selected = True
        End If
    End If
End Sub
Origen Enlace
smt
  • 600
  • 4
  • 16

Tienes que jugar con la posición actual de la fila seleccionada, los Index y CurrentCell del DataGridView. Prueba este código, creo que te funcionará:

Private Sub BotonSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.Click
    Dim i As Integer = Agenda.CurrentRow.Index + 1

    If Agenda.SelectedRows.Count > 0 Then 'Comprueba si se ha seleccionado alguna fila
        If i < Agenda.Rows.Count - 1 Then 'Comprueba si la siguiente selección es menor que el número  total de filas del DataGridView
            TextBoxNombre.Text = Agenda.Item(0, i).Value
            TextBoxTelefono.Text = Agenda.Item(1, i).Value
            TextBoxDireccion.Text = Agenda.Item(2, i).Value


            Agenda.CurrentCell = Agenda.Rows(i).Cells(0) 'Selecciona la primera celda de la fila siguiente
            Agenda.Rows(i).Selected = True 'Selecciona la fila siguiente
        End If
    End If

End Sub

Private Sub btnAtras_Click(sender As Object, e As EventArgs) Handles btnAtras.Click

    If Agenda.SelectedRows.Count > 0 Then 'Comprueba si se ha seleccionado alguna fila
        If Agenda.CurrentRow.Index > 0 Then 'Comprueba si la posición de la fila actual es mayor que 0, lo que indica que no es la primera fila
            Dim i As Integer = Agenda.CurrentRow.Index - 1

            TextBoxNombre.Text = Agenda.Item(0, i).Value
            TextBoxTelefono.Text = Agenda.Item(1, i).Value
            TextBoxDireccion.Text = Agenda.Item(2, i).Value

            Agenda.CurrentCell = Agenda.Rows(i).Cells(0)
            Agenda.Rows(i).Selected = True
        End If
    End If
End Sub