批量粘贴与批量撤销功能上线

UTS_Core/UTSModule/Station/FrmStationPlan.vb

@@ -118,6 +118,24 @@ Namespace UTSModule.Station
         Public Sub PlanGridSelectChanged(sender As Object, ByVal e As PlanNodeSelectChangedEventArgs)
             TsBtnBackward.Enabled = _planGrid.CanBackward
             TsBtnForward.Enabled = _planGrid.CanForward
+
+            '表格移动
+            If GrdStationPlan Is Nothing OrElse GrdStationPlan.Tree.SelectedNode Is Nothing Then Return
+            Dim canMove As Boolean = True
+            Dim startMoveRow As Integer = GrdStationPlan.Selection.FirstRow
+            Dim moveRows As Integer = GrdStationPlan.Selection.LastRow - GrdStationPlan.Selection.FirstRow + 1
+            Dim startLever As Integer = GrdStationPlan.Tree.FindNode(startMoveRow).Level
+            For i As Integer = startMoveRow To startMoveRow + moveRows - 1
+                If startLever <> GrdStationPlan.Tree.FindNode(startMoveRow).Level Then
+                    canMove = False
+                    Exit For
+                End If
+            Next
+
+            TsBtnMoveDown.Enabled = canMove
+            TsBtnMoveLeft.Enabled = canMove
+            TsBtnMoveRight.Enabled = canMove
+            TsBtnMoveUp.Enabled = canMove
         End Sub
 
         Public Sub PlanGridCommandChanged(sender As Object, e As EventArgs)