Vb.net 移动到datagridview中的上一行

我在vb.net中编写了代码，当到达第一条记录时移到datagridview中的前一行，当我再次单击时，它会生成一个“索引超出范围”错误

Private子按钮1\u单击（发送者作为对象，e作为事件参数）处理按钮1。单击
Dim i作为整数=DataGridView1.CurrentRow.Index-1
如果i<0，则i=0
DataGridView1.CurrentCell=Me.DataGridView1.Rows（i）.Cells（0）
DataGridView1.Rows（i）.Selected=True
端接头

---

对我来说没有错误。

在

Dim i As Integer=DataGridView1.CurrentRow.Index-1之后添加一行

该行是“如果i<0，那么i=0”，当我使用您给出的指令时，它仍然面临相同的问题，直接移动“不再行”的else部分。

Dim i As Integer = DataGridView1.CurrentRow.Index - 1

Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(i).Cells(0)
Me.DataGridView1.Rows(i).Selected = True 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim i As Integer = DataGridView1.CurrentRow.Index - 1
    If i < 0 Then i = 0
    DataGridView1.CurrentCell = Me.DataGridView1.Rows(i).Cells(0)
    DataGridView1.Rows(i).Selected = True
End Sub