在模式窗口上有“向上一条”“向下一条”“最前”“最后”四个控件,代码如下编写,我想对“向上一条”及“向下一条”设置快捷键,代码应该怎么改?求助
Select Case e.Sender.Name
Case "上一条"
CurrentTable.Position = CurrentTable.Position - 1
Case "下一条"
CurrentTable.Position = CurrentTable.Position + 1
Case "最前"
CurrentTable.Position = 0
Case "最后"
CurrentTable.Position = CurrentTable.Rows.Count -1
End Select
如下图:
此主题相关图片如下:qq截图20140623163155.jpg
或者只写一个:双击回车 进入下一条
[此贴子已经被作者于2014-6-23 16:45:47编辑过]