主题：狐爸：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