主题：狐爸：ctrl+d 快捷键如何开启

老大,你这段代码有问题啊,我试过了,不行,改成下面这样的也不行

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

   Dim r As Row = e.Table.Current '当前行

   Dim n As Integer = e.Table.Cols(e.Table.Colsel).Index '当前列位置

   Dim cn As String = e.Table.Cols(n).name '当前列名

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

            Dim r2 As Row = e.Table.Rows(r.Index - 1) '取得上一行

            r("cn") = r2("cn")

   End If

End If