Dev Express Gridview 右击快捷键（复制、剪切、插入、粘贴）

  ''' <summary>
    ''' 右击复制功能
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSMI_copy_C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSMI_copy_C.Click

        Select Case Me.TabControl1.SelectedTab.Name

            Case "丈根A"
                With Me.GridView_AssistantZhangGengCompute
                    If .FocusedRowHandle >= 0 Then
                        LDRobj = FDTZGCompute.Rows(.FocusedRowHandle).ItemArray
                    End If
                End With
            Case "捆条A"
                With Me.GridView_AssistantKunTiaoCompute
                    If .FocusedRowHandle >= 0 Then
                        LDRobj = FdtKT.Rows(.FocusedRowHandle).ItemArray
                    End If
                End With
            Case "饰条A"
                With Me.GridView_AssistantShiTiaoCompute
                    If .FocusedRowHandle >= 0 Then
                        LDRobj = FdtST.Rows(.FocusedRowHandle).ItemArray
                    End If
                End W