以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]非副本行的窗表，CTRL+D向下复制的功能没有了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=26048)
--  作者：hiliuyong
--  发布时间：2012/11/23 0:01:00
--  [求助]非副本行的窗表，CTRL+D向下复制的功能没有了

如题，

在表中CTRL+D有效，到非副本的窗表后，CTRL+D失效了，

求教了。
--  作者：lin_hailun
--  发布时间：2012/11/23 8:47:00
--  
 呃，我测试独立窗口不可以，停靠窗口才可以……
--  作者：lin_hailun
--  发布时间：2012/11/23 8:50:00
--  
 
这个是菜单的快捷键，独立和模式窗口，没有菜单，所以无效。

可以设置这表的Keydown事件：

If Forms("ddd").Opened Then
    If e.control = True AndAlso e.keycode = Keys.D Then
         If e.Table.Position > 0 Then
             e.Table.Current(e.Table.ColSel) = e.Table.Rows(e.Table.Position - 1)(e.Table.Colsel)
        End If
    End If
End If
--  作者：hiliuyong
--  发布时间：2012/11/23 14:34:00
--  

我试验了，这段代码不起作用。

我的是非副本的主窗体。

[此贴子已经被作者于2012-11-23 14:34:29编辑过]
--  作者：lin_hailun
--  发布时间：2012/11/23 14:40:00
--  
再不行的话，就上传你的例子吧。

 If Forms("xxx").Opened Then   \'这里修改成你的窗口名字
    If e.control = True AndAlso e.keycode = Keys.D Then
         If e.Table.Position > 0 Then
             msgbox(123)   \'这句代码换成你要的填充
        End If
    End If
End If