以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  keydown事件求助  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146564)
--  作者：chujihua
--  发布时间：2020/2/26 15:11:00
--  keydown事件求助
e.cancel = True
Dim p As Integer = e.Table.Rowsel
If p = e.Table.rows.count - 1 Then
    p = e.Table.addnew().index
Else
    p = p + 1
End If
e.Table.Select(p,1)

这个代码为什么我按什么键都会触发啊，我只想回车键触发
--  作者：程兴刚
--  发布时间：2020/2/26 15:20:00
--  
If e.KeyCode = Keys.Enter Then
    Dim p As Integer = e.Table.Rowsel
    If p = e.Table.rows.count - 1 Then
        p = e.Table.addnew().index
    Else
        p = p + 1
    End If
    e.Table.Select(p,1)
    e.Cancel = True
End If
--  作者：chujihua
--  发布时间：2020/2/26 16:37:00
--  
谢谢版主，但我发现一个问题，这代码不能像EXCEL那样，我单击A1编辑到D1，按回车后会到A2；然后当我单击C1编辑到E1，按回车后会到C2。这种能实现吗
--  作者：程兴刚
--  发布时间：2020/2/26 16:50:00
--  
没明白什么意思，发文件是最快解决问题的途径！