Si no podemos navegar entre los datagridviews con el control bindingsource (bindingsource1.movenext())
tenemos este otro sistema
Private Sub bprimero_Click(sender As System.Object, e As System.EventArgs) Handles bprimero.Click
DataGridView1.CurrentCell = DataGridView1(0, 0)
Label1.Text = "Registro " & DataGridView1.CurrentCell.RowIndex + 1 & " de " & DataGridView1.Rows.Count
End Sub
Private Sub banterior_Click(sender As System.Object, e As System.EventArgs) Handles banterior.Click
DataGridView1.CurrentCell = DataGridView1(0, DataGridView1.CurrentCell.RowIndex - 1)
Label1.Text = "Registro " & DataGridView1.CurrentCell.RowIndex + 1 & " de " & DataGridView1.Rows.Count
End Sub
Private Sub bsiguiente_Click(sender As System.Object, e As System.EventArgs) Handles bsiguiente.Click
DataGridView1.CurrentCell = DataGridView1(0, DataGridView1.CurrentCell.RowIndex + 1)
Label1.Text = "Registro " & DataGridView1.CurrentCell.RowIndex + 1 & " de " & DataGridView1.Rows.Count
End Sub
Private Sub bultimo_Click(sender As System.Object, e As System.EventArgs) Handles bultimo.Click
DataGridView1.CurrentCell = DataGridView1(0, DataGridView1.Rows.Count - 1)
Label1.Text = "Registro " & DataGridView1.CurrentCell.RowIndex + 1 & " de " & DataGridView1.Rows.Count
End Sub
No hay comentarios:
Publicar un comentario