主题：ctrl+d 快捷键如何在用户菜单中开启

请问各位老师：狐狸爸爸的

keydown事件： 
If e.Control = True AndAlso e.KeyCode = Keys.D Nothing Then

   Dim r As Row = e.Tables.Current '当前行

   Dim c AS integer = e.Table.Cols(e.Table.Colsel) ‘当前列位置

   Dim cn As String = e.Table.Cols(c) ’当前列名

   if r.Index < e.Table.Rows.Count  -1 Then  ‘如果不是最后一行

            dim r2 as row = e.Table.Rows(r.Index - 1) ’取得上一行

            r1(cn) = r2(cn)

   End if

End if

有问题， 在用户菜单中设置ctrl+D快捷键用系统命令重复填充Syscmd.Edit.RepeatFill()又不能用，

如何用ctrl+d 快捷键在用户菜单中填充鼠标拾取到行？

不是很理解你的意思啊. 

就是在用户菜单下实现重复填充，我在用户菜单上已设置好了，鼠标点击是正确的，就是设置的快捷键Ctrl+D不起作用。
此主题相关图片如下：重复填充.jpg

同样的代码放到菜单按钮CLick事件去即可

此主题相关图片如下：重复填充1.jpg

是这样的话，已经放上去了。

 Dim r As Row = e.Tables.Current '当前行

   Dim c AS integer = e.Table.Cols(e.Table.Colsel) ‘当前列位置

   Dim cn As String = e.Table.Cols(c) ’当前列名

   if r.Index < e.Table.Rows.Count  -1 Then  ‘如果不是最后一行

            dim r2 as row = e.Table.Rows(r.Index - 1) ’取得上一行

            r1(cn) = r2(cn)

   End if

是这段代码

此主题相关图片如下：重复填充2.jpg

粘贴上去显示上面的错误

换成 currentTable

Dim r As Row = currentTable.Current '当前行

   Dim c AS integer =currentTable.Cols(currentTable.Colsel) ‘当前列位置

   Dim cn As String = currentTable.Cols(c) ’当前列名

   if r.Index < currentTable.Rows.Count  -1 Then  ‘如果不是最后一行

            dim r2 as row = currentTable.Rows(r.Index - 1) ’取得上一行

            r1(cn) = r2(cn)

   End if

此主题相关图片如下：重复填充3.jpg

还是显示错误