- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- ctrl+d 快捷键如何在用户菜单中开启 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=41067)
-- 发布时间：2013/10/10 16:07:00
-- 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 快捷键在用户菜单中填充鼠标拾取到行？
-- 发布时间：2013/10/10 16:14:00
--
不是很理解你的意思啊.
-- 发布时间：2013/10/10 16:35:00
--
就是在用户菜单下实现重复填充，我在用户菜单上已设置好了，鼠标点击是正确的，就是设置的快捷键Ctrl+D不起作用。
此主题相关图片如下：重复填充.jpg
-- 发布时间：2013/10/10 16:39:00
--
同样的代码放到菜单按钮CLick事件去即可
-- 发布时间：2013/10/10 16:51:00
--
此主题相关图片如下：重复填充1.jpg
是这样的话，已经放上去了。
-- 发布时间：2013/10/10 16:52:00
--
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
是这段代码
-- 发布时间：2013/10/10 16:59:00
--
此主题相关图片如下：重复填充2.jpg
粘贴上去显示上面的错误
-- 发布时间：2013/10/10 17:01:00
--
换成 currentTable
-- 发布时间：2013/10/10 17:02:00
--
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
-- 发布时间：2013/10/10 17:08:00
--
此主题相关图片如下：重复填充3.jpg
还是显示错误