主题：Ctrl+D 快捷键问题

项目菜单已导入(系统菜单) 把原来的Ctrl+d 改为其他快捷键也不没用 后来才知道模式窗口没用 当时都用模式窗口设计的

那么问题是所有窗口都是模式窗 那所用表都要在keydown加代码吗 我加了这段代码 一次只能填充一行

If Forms("调度配载").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

 而这段又报错

If e.Control = True AndAlso e.KeyCode = Keys.D Nothing Then

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

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

            r1(cn) = r2(cn)

End if