- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]多行粘贴，以前的表可以用，现在新表不行！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185559)
-- 发布时间：2023/3/1 19:41:00
-- [求助]多行粘贴，以前的表可以用，现在新表不行！
之前的表格快捷键用以下代码，可以像EXCEL表格一样，多行粘贴。如今重做
一个表格，用一样的代码和事件就不行。不知设置缺少什么？
If e.keycode = Keys.d AndAlso e.control = True Then
For i As Integer = e.Table.topposition + 1 To e.Table.bottomposition
e.Table.rows(i)(e.Table.colsel) = e.Table.rows(i - 1)(e.Table.colsel)
Next
e.cancel = True
End If
此主题相关图片如下：snipaste_2023-03-01_19-06-29.png
此主题相关图片如下：snipaste_2023-03-01_19-06-53.png
[此贴子已经被作者于2023/3/1 19:43:02编辑过]
-- 发布时间：2023/3/2 8:30:00
--
如果是自定义菜单下，换个快捷键，不要使用d键
-- 发布时间：2023/3/2 9:39:00
--
快捷键换了其他的也一样。这代码是之前复制，论坛里有人问过类似问题的帖子的回复代码。昨天想找这帖子，总找不到。
-- 发布时间：2023/3/2 9:40:00
--
我测试没有问题，请上传实例说明
-- 发布时间：2023/3/3 19:38:00
--
原本想做个实例给蓝老师看看。
结果做好后，自己研究下，代码的效果自己测试出来了。
效果就是跟EXCEL表格一样，按Ctrl+d 多行重复复制，而不是像狐表的快捷键一样。只能重复复制一行。
代码放出来，给有需要的人，复制粘贴。
If e.keycode = Keys.f9 AndAlso e.control = True Then \'\'设置F9+Ctal快捷键
For c1 As Integer = e.Table.LeftCol To e.Table.RightCol \'循环鼠标所选择的列的位置
For i As Integer = e.Table.topposition + 1 To e.Table.bottomposition \'循环鼠标所选择的行的位置
e.Table.rows(i)(e.Table.Cols(c1)) = e.Table.rows(i - 1)(e.Table.Cols(c1))
Next
Next
End If