这个应该很简单的,四行代码即可解决。
KeyDown事件。
If e.Control = True Andalso e.KeyCode = Keys.D Then If e.Table.TopRow > 0 Then e.Table.Current(e.Table.ColSel) = e.Table.Value(e.Table.TopRow-1,e.Table.ColSel) End IfEnd If