主题：ctrl+d 快捷键如何在用户菜单中开启

Dim r As Row = currentTable.Current '当前行

   Dim c AS integer =currentTable.Colsel ‘当前列位置

   Dim cn As String = currentTable.Cols(c) ’当前列名

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

            dim r2 as row = currentTable.Rows(r.Index - 1) ’取得上一行

            r1(cn) = r2(cn)

   End if