DataGridView SetFocus 不移动到下一行

Question

我在一个有 4 列的表单中使用了 DataGridView 功能：项目代码、描述、数量、价格。我希望在将项目代码插入单元格时，焦点应该移到同一行的第三个单元格上，即第三列（数量）。直到这里它工作正常，因为我提到了这个链接。

DataGridView SetFocus after CellEndEdit

现在的问题是它卡在第三个单元格上，当我按下回车键时它没有移动到下一行第一列（项目代码）。我的代码是

Private flag_cell_edited As Boolean
Private currentRow As Integer
Private currentColumn As Integer 


Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        flag_cell_edited = True
        currentColumn = e.ColumnIndex
        currentRow = e.RowIndex
        MsgBox(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value)

End Sub


Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
        If flag_cell_edited Then
                DataGridView1.CurrentCell = DataGridView1.Rows(currentRow).Cells(2)
                flag_cell_edited = False
        End If
End Sub

我已经使用MsgBox查看插入单元格的数据，以便以后可以将其存储到数据库中。

Answer 1

当您在第三个单元格上按 Enter 键时，您会收到 CellEndEdit 事件，就像您在第一个单元格中结束编辑时一样。只有在第一个单元格时才需要触发第三个单元格的移动

Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit

    if e.ColumnIndex = 0 Then
        flag_cell_edited = True
        currentColumn = e.ColumnIndex
        currentRow = e.RowIndex
    Else
        flag_cell_edited = False
    End If
End Sub


Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
    If flag_cell_edited Then
        DataGridView1.CurrentCell = DataGridView1.Rows(currentRow).Cells(0)
        flag_cell_edited = False
    End If
End Sub