主题：快速复制问题

编写 keyDown 事件

If e.keycode = Keys.Q AndAlso e.control = True Then
    For i As Integer = e.Table.topposition + 1 To e.Table.bottomposition
        e.Table.rows(i)(e.Table.ColSel) = e.Table.rows(i-1)(e.Table.ColSel)
    Next
    e.cancel = True
End If