主题：按回车键或方向键选定不同单元格

keydown事件

If e.keycode = keys.enter OrElse e.keycode = keys.right Then
    Dim ary() As String = {"第一列", "第三列", "第七列"}
    Dim idx As Integer = array.indexof(ary, e.Table.cols(e.Table.colsel).name)
    If idx >= 0 Then
        If idx = ary.length-1 Then
            e.Table.Select(e.Table.position+1, e.Table.cols(ary(0)).index)
        Else
            e.Table.Select(e.Table.position, e.Table.cols(ary(idx+1)).index)
        End If
    End If
    e.cancel = True
End If