DevExpress GridView 拖动复制功能

---

        with GridView_Dsheet
            '首先要在DEV初始化时设置多行选择属性
            '是否允许多行选择
            .OptionsSelection.MultiSelect = True
            .OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
        end with
  
 Private Sub GridView_Dsheet_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Data.SelectionChangedEventArgs) Handles GridView_Dsheet.SelectionChanged
        ''拖动复制功能
        Dim i, BgRow, EndRow As Int32
        Dim SValue As Object

        '如果网格不允许编辑时
        If GridView_Dsheet.OptionsBehavior.Editable = False Then Exit Sub

        '选取的范围,必须为同一列
        If GridView_Dsheet.GetSelectedCells(GridView_Dsheet.FocusedRowHandle).Length > 1 Then Exit Sub


        '选取的行是按网格的顺序由最上的第0行开始，对应行号
        If GridView_Dsheet.GetSelectedRows().Length < 1 Then Exit Sub
        BgRow = GridView_Dsheet.GetSelectedRows(0