Private Sub cmdAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnterior.Click
If Val(me.grdGrid.CurrentRow.Index - 1) >= 0 Then
me.grdGrid.ClearSelection()
me.grdGrid.CurrentCell = me.grdGrid.Rows(Val(me.grdGrid.CurrentRow.Index - 1)).Cells(0)
me.grdGrid.Refresh()
Else
Beep()
End If
End Sub
Private Sub cmdSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSiguiente.Click
If Val(me.grdGrid.CurrentRow.Index + 1) < grdGrid.RowCount Then
me.grdGrid.ClearSelection()
me.grdGrid.CurrentCell = me.grdGrid.Rows(Val(me.grdGrid.CurrentRow.Index + 1)).Cells(0)
me.grdGrid.Refresh()
Else
Beep()
End If
End Sub