以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按回车键或方向键选定不同单元格  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107969)
--  作者：漂亮美眉vszh
--  发布时间：2017/10/13 14:35:00
--  按回车键或方向键选定不同单元格
老师：例有一组数组，即 2，4 ，5 ，8，9，10 等不规则的数
想按下回车键或方向键（向右），即逐行自动跳转到我上述选定这些列中？
--  作者：漂亮美眉vszh
--  发布时间：2017/10/13 14:41:00
--  
暂时想到方案了，等下有问题再问，谢谢老师
--  作者：有点甜
--  发布时间：2017/10/13 14:47:00
--  

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