主题：[求助新增行后焦点不在最后一行

窗口里面不能触发快捷键 Ctrl+D 的。你可以在表的keydown事件写代码

If e.keycode = keys.W AndAlso e.control = True Then
    Dim t As Table = e.Table
    For i As Integer = t.TopPosition+1 To t.BottomPosition
        Dim r As Row = t.Rows(i)
        r(e.Table.cols(e.Table.colsel).name) = t.rows(i-1)(e.Table.cols(e.Table.colsel).name)
    Next
End If