以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义菜单下重复填充失效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149454)

--  作者:紫色幽魂
--  发布时间:2020/5/2 17:09:00
--  [求助]自定义菜单下重复填充失效
在全局代码或者表代码中加入下面这段代码都按Ctrl+d 都还是不起作用
在项目事件Initialize对所有表都启用了的
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

--  作者:狐狸爸爸
--  发布时间:2020/5/3 8:52:00
--  
foxtable本身就有这个功能了,不需要自己写。
--  作者:紫色幽魂
--  发布时间:2020/5/3 17:01:00
--  回复:(狐狸爸爸)foxtable本身就有这个功能了,不需...
我采用自定义菜单了,没有用系统菜单,所以没有这个功能了
--  作者:有点酸
--  发布时间:2020/5/4 8:36:00
--  
Ctrl+D可能被Foxtable自己检测用了, 你将D改为E看看

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

另外常规的表你可以在Initialize开启全局事件,窗口表是不会的。
--  作者:紫色幽魂
--  发布时间:2020/5/8 16:13:00
--  回复:(有点酸)Ctrl+D可能被Foxtable自己检测用了,...
换一个就可以了,有没有办法设置为Ctrl+D,都习惯用这个快捷键
--  作者:有点蓝
--  发布时间:2020/5/8 16:21:00
--  
没有办法。
--  作者:z769036165
--  发布时间:2020/6/9 16:24:00
--  
 在自定义菜单里面新建一个标准按钮,按钮设置快捷方式为Ctrl+D,默认不可见,按钮事件为Syscmd.Edit.RepeatFill()然后重新打开,自定义菜单下,窗口表中的ctrl+d重复填充即可用了

--  作者:有点蓝
--  发布时间:2020/6/9 16:43:00
--  
测试了一下貌似没有效果。改为其它快捷键就可以