keyDownEdit事件

If e.KeyCode = 13 Then
    If e.Col.Name = "第四列" Then
        If e.Row.Index = e.Table.Rows.Count - 1 Then
            Dim nr As Row = e.Table.AddNew
            e.Table.Select(nr.Index, e.Table.Cols("第二列").Index)
        End If
    End If
End If

keyDown事件

If e.keycode = 13 Then
    Dim c As String = e.Table.Cols(e.Table.Colsel).Name
    Dim r As Row = e.Table.current
    If c = "第四列" Then
        If r.Index = e.Table.Rows.Count - 1 Then
            Dim nr As Row = e.Table.AddNew
            e.Table.Select(nr.Index, e.Table.Cols("第二列").Index)
            e.cancel = True
        End If
    End If
End If