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

最新推荐文章于 2025-04-22 08:54:34 发布

原创最新推荐文章于 2025-04-22 08:54:34 发布 · 2.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

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

本文详细介绍了如何在Dev Express Gridview中实现右键点击功能，包括复制、剪切、插入行以及粘贴数据的操作。通过自定义上下文菜单和事件处理，为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 With
        End Select

    End Sub
    ''' <summary>
    ''' 右击剪切功能
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSMI_cut_C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSMI_cut_C.Click
        Select Case Me.TabControl1.SelectedTab.Name
            Case "丈根A"
                With Me.GridView_AssistantZhangGengCompute
                    If .FocusedRowHandle >= 0 Then
                        LDRobj = FDTZGCompute.Rows(.FocusedRowHandle).ItemArray
                        FDTZGCompute.Rows(.FocusedRowHandle).Delete()
                    End If
                End With
            Case "捆条A"
                With Me.GridView_AssistantKunTiaoCompute
                    If .FocusedRowHandle >= 0 Then
                        LDRobj = FdtKT.Rows(.FocusedRowHandle).ItemArray
                        FdtKT.Rows(.FocusedRowHandle).Delete()
                    End If
                End With
            Case "饰条A"
                With Me.GridView_AssistantShiTiaoCompute
                    If .FocusedRowHandle >= 0 Then
                        LDRobj = FdtST.Rows(.FocusedRowHandle).ItemArray
                        FdtST.Rows(.FocusedRowHandle).Delete()
                    End If
                End With

        End Select

    End Sub
    ''' <summary>
    ''' 右击插入功能
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSMI_Insert_C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSMI_Insert_C.Click
        Dim Ldr As DataRow
        Dim Ldt As New DataTable

        Select Case Me.TabControl1.SelectedTab.Name

            Case "丈根A"
                With Me.GridView_AssistantZhangGengCompute
                    Ldt = FDTZGCompute
                    Ldr = Ldt.NewRow()

                    LDRobj = Ldt.Rows(.FocusedRowHandle).ItemArray
                    Ldt.Rows.InsertAt(Ldr, .FocusedRowHandle)
                    Ldt.Rows(.FocusedRowHandle - 1).ItemArray = LDRobj
                    Ldt.Rows(.FocusedRowHandle - 1).Item("SizeNo") = ""

                End With
            Case "捆条A"
                With Me.GridView_AssistantKunTiaoCompute
                    Ldt = FDTKTCompute
                    Ldr = Ldt.NewRow()

                    LDRobj = Ldt.Rows(.FocusedRowHandle).ItemArray
                    Ldt.Rows.InsertAt(Ldr, .FocusedRowHandle)
                    Ldt.Rows(.FocusedRowHandle - 1).ItemArray = LDRobj
                    Ldt.Rows(.FocusedRowHandle - 1).Item("SizeNo") = ""
                End With
            Case "饰条A"
                With Me.GridView_AssistantShiTiaoCompute
                    Ldt = FDTSTCompute
                    Ldr = Ldt.NewRow()

                    LDRobj = Ldt.Rows(.FocusedRowHandle).ItemArray
                    Ldt.Rows.InsertAt(Ldr, .FocusedRowHandle)
                    Ldt.Rows(.FocusedRowHandle - 1).ItemArray = LDRobj
                    Ldt.Rows(.FocusedRowHandle - 1).Item("SizeNo") = ""
                End With
        End Select

    End Sub
    ''' <summary>
    ''' 右击粘贴功能
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub TSMI_plaster_C_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSMI_plaster_C.Click
        Select Case Me.TabControl1.SelectedTab.Name

            Case "丈根A"
                With Me.GridView_AssistantZhangGengCompute
                    If Not LDRobj Is Nothing AndAlso LDRobj.Length > 0 Then
                        FDTZGCompute.Rows(.FocusedRowHandle).ItemArray = LDRobj
                        'FDTZGCompute.Rows(.FocusedRowHandle - 1).Item("SizeNo") = ""
                    End If
                End With
            Case "捆条A"
                With Me.GridView_AssistantKunTiaoCompute
                    If Not LDRobj Is Nothing AndAlso LDRobj.Length > 0 Then
                        FdtKT.Rows(.FocusedRowHandle).ItemArray = LDRobj
                        'FdtKT.Rows(.FocusedRowHandle - 1).Item("SizeNo") = ""
                    End If
                End With
            Case "饰条A"
                With Me.GridView_AssistantShiTiaoCompute
                    If Not LDRobj Is Nothing AndAlso LDRobj.Length > 0 Then
                        FdtST.Rows(.FocusedRowHandle).ItemArray = LDRobj
                        'FdtST.Rows(.FocusedRowHandle - 1).Item("SizeNo") = ""
                    End If
                End With
        End Select


    End Sub