新增导航功能，节点操作支持多行操作

AUTS_Win/bin/Debug/UTS_Core.xml

@@ -6106,6 +6106,35 @@ UTS_Core
  对第二行的Action执行一遍操作，以触发更新事件
  </summary>
 </member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.BackwardNavigation">
+ <summary>
+ 向后导航
+ </summary>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ForwardNavigation">
+ <summary>
+ 向前导航
+ </summary>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanBackward">
+ <summary>
+ 是否可以后退
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanForward">
+ <summary>
+ 是否可以前进
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ClearNavigation">
+ <summary>
+ 
+ </summary>
+</member>
 <member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.Grid_MouseLeave(System.Object,System.EventArgs)">
  <summary>
  光标离开grd表格时，黄色底色切换到选中行
@@ -6228,12 +6257,12 @@ UTS_Core
  </summary>
  <param name="node"></param>
 </member>
-<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32)">
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32,System.Int32)">
  <summary>
  节点升级
  </summary>
 </member>
-<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32)">
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32,System.Int32)">
  <summary>
  节点降级
  </summary>
@@ -9774,6 +9803,46 @@ UTS系列App与UtsCore交互为避免重复书写产生的中间类
  </summary>
  <returns></returns>
 </member>
+<member name="P:UTS_Core.GridNavigationManager.IsRunning">
+ <summary>
+ 是否正在执行导航操作
+ </summary>
+ <remarks></remarks>
+</member>
+<member name="P:UTS_Core.GridNavigationManager.CanForward">
+ <summary>
+ 是否可以后退
+ </summary>
+ <returns></returns>
+</member>
+<member name="P:UTS_Core.GridNavigationManager.CanBackward">
+ <summary>
+ 是否可以前进
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+<member name="M:UTS_Core.GridNavigationManager.Append(UTS_Core.INavigation)">
+ <summary>
+ 添加导航
+ <param name="navigation">导航</param>
+ </summary>
+</member>
+<member name="M:UTS_Core.GridNavigationManager.RemoveForward">
+ <summary>
+ 
+ </summary>
+</member>
+<member name="M:UTS_Core.INavigation.Backward">
+ <summary>
+ 向后导航
+ </summary>
+</member>
+<member name="M:UTS_Core.INavigation.Forward">
+ <summary>
+ 向前导航
+ </summary>
+</member>
 <member name="M:UTS_Core.utsLabel.RunMode">
  <summary>
  解析模式，并且确定有关参数

UTS_Core/UTSModule/Station/FrmStationPlan.resx

@@ -192,7 +192,7 @@
         hkoPasDAAACBjwD6rwhXUgAAAABJRU5ErkJggg==
 </value>
   </data>
-  <data name="TsBtnCopyWholeRow.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="TsBtnBackward.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHJSURBVDhPvZHdK4NhGMb3pzAt4dgfIPmMosgBB8pHjnbA
@@ -206,25 +206,13 @@
         gsd7A8Wc0VfbPf1MAAAAAElFTkSuQmCC
 </value>
   </data>
-  <data name="TsBtnPasteWholdRows.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="TsBtnForward.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
         YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACMSURBVDhPtZDRDYAgDET7wazu5AIOY/x2BX/dAHO2KNQW
         MMZLXiK1d5zSLwohxBwZ+9IGEBc6sd6JjYXBNO8XOOfG9Kx3xF4GJIOF3hP7M6BGM6CXrgCi0aUzYIiW
         MOcgUa2BJcy3bb1DWg34RkafGwF2A+hlg/vnJThAGkAI0WDRU9HAV/6tHp9FdAB/QLi4qrG0hAAAAABJ
         RU5ErkJggg==
-</value>
-  </data>
-  <data name="TsBtnClearAll.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFnSURBVHhe7ZpRasMwEER9pByjhdDerldtSz7SHciAKLYi
-        J9Jau5kHAwF/rOYhKwZ7EUIIIYQQQgixj5Pl6xb89ubQ+Rj4bbne8mM5W7zALMzkfKzFVQKsczjza/GQ
-        gBmY9X8+1uTGmgBktISt8oirAGy3cguWGSWhVh5rcT8H3izlOVAGC/209OLdUpv1YTkEDwnTlicjJUxf
-        noyQEKY86SkhXHnSQ0LY8uQZCeHLk0ckpClP9khIV560SEhbntQkXCwouXYtRXlSk7CWVOVJq4SU5Qkk
-        bG15BLdE2vIAB949AS0PSyGpnfZlICidhNbyTCoJtfL3/gbDS2h5yGl5WApJS3mSTsKe8iSNhEfKk/AS
-        nilPwkroUZ6Ek9CzPAkjYUR5Mr2EkeXJtBI8ypPpJLz8y9GXfz2+JmB0ebIlwf37gPKexBb0KE8wq7wF
-        sRb37wMwENYR9+HG0fOFEEIIIYQQIirL8gdhBPBs3RAiLQAAAABJRU5ErkJggg==
 </value>
   </data>
   <data name="TsBtnMoveUp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -368,70 +356,11 @@
 </value>
   </data>
   <metadata name="StuMain.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>129, 17</value>
+    <value>133, 21</value>
   </metadata>
   <metadata name="CmsPlanGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>235, 17</value>
   </metadata>
-  <data name="MsiCopyNode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vgAADr4B6kKxwAAAAH1JREFUOE+9j1EKgDAMQ/exs3onL+YVdgwlrGFdaJmi+CD40ewRy2tqrWcUO69B
-        WXkkyQT8Wi3Hl+eHu2WTCHykoKwMoUMXMCgrlE4SChSWKQTjt9wSHllkogWktcMkTqDoAgaPu8AtiHJ7
-        QU68AJkW5HywoJei4LZc8AulXG6IZu0vxOOrAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="MsiCutNode.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vgAADr4B6kKxwAAAAZFJREFUOE+1jNsrg3Ech/e3uFAuFDlEyakmLuZU7+vGaVu8OTQpZ2/Cwhy25jSH
-        5pC3pDHZaHqHC3NIstHakjFk7EYOIXH1YS8pF95eyXP1+337PI/oX7DueDA5x+Lzy+E580OtN3+7/YjN
-        dY0eHQPb4cOXMGtexYhxR1ggQL/egOmlD8Hnv0FxBQ2GPRQeMCyuo3uA4YT1bQfIgnJMr50ID8xb994D
-        U9DPLKO2RQMilxIuB1ixX6KqWQO5oglEXikU9Z2/CwSgqntAFlaCoDowZNwXHrA6X9HA3INsO0fVsAeS
-        OjuyaBf37jNd8IdY5wvytbcglV4kFU4hrUiPjBobMhrdEJexUKg3+AM0cwOy/QpJxQuIJXohpY2Q1Oxi
-        0fGIbsMxogktfyCn7QKWg2eYd28Rla3mxtm0GzNbd2gdtyM0uZw/QChPYXE8QWfyIjK9nRvLVAeIlxkQ
-        EidHUHA4f4BSHyFBNouIzC7EpJZw40HzKSLEpQhLlKJpdJs/MMH6kCIfexcoqCY2+cd/RyR6A4ZK7Qq0
-        XkbzAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="MsiNodePaste.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vgAADr4B6kKxwAAAAlZJREFUOE+1kltIVFEUhg/0YC9FF+qpp4LoJYoIqoeMwixMM4zEjKyJGJUUlcnS
-        KbW8oZO3SdPGyMug5q0SRaVIhMwhs9JwjC4SqZHTZM2Z8Z7F1zlHRxsygqAffjbsvf9vrb3Ywn9RW0Mq
-        LbcTqSuOZXbrz3rU0UltWfacizOPYbOUM2q5wUBvBufUnmSnaLim06JPif4dKIcmxBqm7NVM2CowFmgY
-        Gy4l+UIYL9tjuBjmTYxqK5a2Eww3rSUi6KArRAbI4Sl7Jfmpx+kyZSB+yGWoV8s70ynqC30JDnSnPG4N
-        z7IFQo8ecAVUl2bOAMRb6OKCSNAEoA3353yoHxq1L5Eqb0ICPciJWKcAArzcXQEVRTomxSomrQbGBtOw
-        vgjHXLpScU/JCroKlvBE76aEZXvs2OwKMBpSGbcWM96fxNirM4w+P4zYsJSskibSDHVculpFjM5IZGIh
-        wbF6gqLSXQFFeYmMDOgZ7VUz0umN4+EWPt1dpYSdmpr+js0+Qf+QDf+Qy/ic1M5DCrPiEV8n4ejwxNG6
-        EXvzagZKBKWyrKI7bYoNlS309FmU8P12M/v8VDOQvPRYvnSfxd6yAbFxOdYaN/puCkrb36Z/8NUhVf5o
-        o+etBVP3e7wCI/GUwnv2H8J95y6EnORorI9DpPAyPtcuZrBsEeZ8gQjpzXLbzg6uSx3kGpupbzUrq+zt
-        m9YjXEmIUj6Ic8pOq6WB/Vr5gemNEq6510Vl09N5gKys+NPSD/NF5bcXn93blAN52vKbndUW8hxgIR2R
-        pi1f+Jtnr/+rBOEn8vTydCQEu0UAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="MsiCopyWholeRow.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vgAADr4B6kKxwAAAAclJREFUOE+9kd0rg2EYxvenMC3h2B8g+YyiyAEHykeOdsCRIyGKNJramAnz1Tbe
-        MQkTGma+Grb5mgzFVkPvy9jGOy57n40xNUr51XXyPF2/u/t5eH9Gu3wELtSSlUQ5a8Kgdh2h65/hypEo
-        Jo2obBj+nUSzaA3VgvhfXiEZmYfOYEVxdfvPEuXcDinqbAC1C5jtDDoVM6BWGaiXaaj0NPrnaIgnbklC
-        tTCDWiMRcDw9+8Hc++BwuYkgkqbRayRXGL5K5Go9uewzPEM0y6CeukLNgB0jCzfk/DPVMhe0GwySiibD
-        EmlgX27vRw+La9qDc8cdDuw3kE87SamV8pOYT+5QKnIisWgKCQVjiM8bCkq4fb0+9mOyUG5DlXQfHapz
-        IniHeWBxcumFwXIPGbUNQW5vWMC4fTg8c2Hn2AGj+QJLW6do6At+b92oG0KpEyVtNuQ37pHIqE0IsrvC
-        guSssm+pEe8RARtYz0WzsNgfsWhioFm5RfeYEXEZ4q+PGUl50wYRfJ78ni71GvhpouiCwlo9PE8vkE+Y
-        0KPZhmx8k0zmylLlKmJTW6ILMoS6wGurSOLzFBDk9CAuUwJ+enug3IqYlObogn+Cx3sDxZzRV9s9/UwA
-        AAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="MsiPasteWholeRow.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vgAADr4B6kKxwAAAAIxJREFUOE+1kNENgCAMRPvBrO7kAg5j/HYFf90Ac7Yo1BYwxkteIrV3nNIvCiHE
-        HBn70gYQFzqx3omNhcE07xc458b0rHfEXgYkg4XeE/szoEYzoJeuAKLRpTNgiJYw5yBRrYElzLdtvUNa
-        DfhGRp8bAXYD6GWD++clOEAaQAjRYNFT0cBX/q0en0V0AH9AuLiqsbSEAAAAAElFTkSuQmCC
-</value>
-  </data>
   <data name="MsiGridRowBlockInsert.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -455,7 +384,7 @@
   <data name="tsBtn_CheckAction.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAA8AAAAPCAYAAAA71pVKAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vgAADr4B6kKxwAAAAGRJREFUOE+lzcENgDAIhWFmchbHcRN3YwEW4GblgDGFV9r0T96hCV9K+53Xs7yv
+        vAAADrwBlbxySQAAAGRJREFUOE+lzcENgDAIhWFmchbHcRN3YwEW4GblgDGFV9r0T96hCV9K+53Xs7yv
         98HMYSISpqo1RrDEGTxuqjGCJfbDDA5xf4ygVWIELYhHP3oQ+zGCVor9+L+sgGehFfDy9iJq1K76qrTi
         CkcAAAAASUVORK5CYII=
 </value>
@@ -463,7 +392,7 @@
   <data name="tsBtn_UncheckAction.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAA8AAAAPCAYAAAA71pVKAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vgAADr4B6kKxwAAAAFdJREFUOE+ly7ENACEMQ9EMeeMwaxbIAukANyfdQRIjvuTCxZP7ntaP9zaPqoYz
+        vAAADrwBlbxySQAAAFdJREFUOE+ly7ENACEMQ9EMeeMwaxbIAukANyfdQRIjvuTCxZP7ntaP9zaPqoYz
         s89o/IfuzuEdpHAES5zBFFcwxAxEC2YhSnEGUYgriLaYgWjBx7tLZADW/iIHX3Y7QQAAAABJRU5ErkJg
         gg==
 </value>
@@ -483,6 +412,15 @@
         vAAADrwBlbxySQAAAH1JREFUOE+9kEEOgCAMBHvi3Vx4N1pkzVKoFQ9O0sTW3TkgHiml+jQ95qOhUsow
         LNC9R0dsyJYl530Bdi2/EkitgwS3pQBBnhYmyX3zBChM08OhwI4t820SWFqYyuEbWFBE6H8BYFEgOH+4
         cxEIYlig323fAYJPZQXFuSxyANoUGxZ/KYqDAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="TsmiDebugContinue.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABIAAAARCAYAAADQWvz5AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        vAAADrwBlbxySQAAALhJREFUOE+t1LsNwyAABFBGyCiZgZ4dUtCzQirWyBBMQZWGPrVFQcOnJL4IJMuy
+        MIacdI3BT7L5kBhjXuu893cyE0BCiLwsi0spPcrj6wFEKc2c82ytzcNYhSpmjMkhhGcZ7s8WQhljFXuV
+        KX3ZQxXTWv8w59ytTG3nCKpVSmFF311YC0K7sTMIBbZ+5qe8cpwzSErZt2Fb0F/+0SUE2UNDS49soeHN
+        iFRo6ngggKYPLAJo+gohhHwB0XQ+lRtjI7IAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="TsmiDebugStep.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -495,15 +433,6 @@
         psL3YQDcxNTs7hEF7JE8C6ZyEPYFCL7X7HgBOj81jtefpus6lQ/SK+CD7Alc3CPpeOAUuT9sLI3snZuk
         9lGLHOjazbZ/k/04ip7x3dRqgH77rjEpNU42/GmApMNN3v4bfI+C4AP3/yDWi5gZ5QAAAABJRU5ErkJg
         gg==
-</value>
-  </data>
-  <data name="TsmiDebugContinue.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABIAAAARCAYAAADQWvz5AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        vAAADrwBlbxySQAAALhJREFUOE+t1LsNwyAABFBGyCiZgZ4dUtCzQirWyBBMQZWGPrVFQcOnJL4IJMuy
-        MIacdI3BT7L5kBhjXuu893cyE0BCiLwsi0spPcrj6wFEKc2c82ytzcNYhSpmjMkhhGcZ7s8WQhljFXuV
-        KX3ZQxXTWv8w59ytTG3nCKpVSmFF311YC0K7sTMIBbZ+5qe8cpwzSErZt2Fb0F/+0SUE2UNDS49soeHN
-        iFRo6ngggKYPLAJo+gohhHwB0XQ+lRtjI7IAAAAASUVORK5CYII=
 </value>
   </data>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

UTS_Core/UTSModule/Station/FrmStationPlan.vb

@@ -2,9 +2,7 @@
 Imports System.Threading
 Imports System.Windows.Forms
 Imports UTS_Core.DebugLog
-Imports UTS_Core.UTSModule.Production
 Imports UTS_Core.UTSModule.Test
-Imports UTS_Core.UTSModule.Test.Command
 Imports UTS_Core.UTSModule.Test.StatusMonitor
 
 Namespace UTSModule.Station
@@ -95,6 +93,7 @@ Namespace UTSModule.Station
                 .Grid = GrdRowNode,
                 .RtxColTip = RtxColTip}
 
+            AddHandler _planGrid.PlanNodeSelectChanged, AddressOf PlanGridSelectChanged
             AddHandler _planGrid.PlanNodeSelectChanged, AddressOf _nodeGrid.Grid_PlanNodeSelectChanged
             AddHandler _planGrid.RowNodeTextChanged, AddressOf _nodeGrid.Grid_RowNodeTextChanged
 
@@ -113,6 +112,10 @@ Namespace UTSModule.Station
             ApplicationLog.WriteInfoLog($"编辑页面加载完成。")
         End Sub
 
+        Public Sub PlanGridSelectChanged(sender As Object, ByVal e As PlanNodeSelectChangedEventArgs)
+            TsBtnBackward.Enabled = _planGrid.CanBackward
+            TsBtnForward.Enabled = _planGrid.CanForward
+        End Sub
 
         Private Function InitializeUtsApp() As Boolean
             _utsApp = UtsAppForm.CreateSingleton()
@@ -253,31 +256,36 @@ Namespace UTSModule.Station
             End If
         End Sub
 
-        Private Sub TsBtnClearAll_Click(sender As Object, e As EventArgs) Handles TsBtnClearAll.Click
-            _planGrid.NodeClear()
-        End Sub
-
         Private Sub TsBtnMoveUp_Click(sender As Object, e As EventArgs) Handles TsBtnMoveUp.Click
-            Dim tmpFrisRow As Integer = GrdStationPlan.Selection.FirstRow
+            If GrdStationPlan Is Nothing OrElse GrdStationPlan.Tree.SelectedNode Is Nothing Then Return
-            Dim tmpLastRow As Integer = GrdStationPlan.Selection.LastRow
+
-            ' gCopyWholeRows = tmpLastRow - tmpFrisRow + 1
+            Dim startMoveRow As Integer = GrdStationPlan.Selection.FirstRow
-            _planGrid.NodeMoveUp(tmpLastRow - tmpFrisRow + 1)
+            Dim moveRows As Integer = GrdStationPlan.Selection.LastRow - GrdStationPlan.Selection.FirstRow + 1
+            _planGrid.NodeMoveUp(startMoveRow, moveRows)
         End Sub
 
         Private Sub TsBtnMoveDown_Click(sender As Object, e As EventArgs) Handles TsBtnMoveDown.Click
-            _planGrid.NodeMoveDown()
+            If GrdStationPlan Is Nothing OrElse GrdStationPlan.Tree.SelectedNode Is Nothing Then Return
+
+            Dim startMoveRow As Integer = GrdStationPlan.Selection.FirstRow
+            Dim moveRows As Integer = GrdStationPlan.Selection.LastRow - GrdStationPlan.Selection.FirstRow + 1
+            _planGrid.NodeMoveDown(startMoveRow, moveRows)
         End Sub
 
         Private Sub TsBtnMoveLeft_Click(sender As Object, e As EventArgs) Handles TsBtnMoveLeft.Click
-            Dim tmpFrisRow As Integer = GrdStationPlan.Selection.FirstRow
+            If GrdStationPlan Is Nothing OrElse GrdStationPlan.Tree.SelectedNode Is Nothing Then Return
-            Dim tmpLastRow As Integer = GrdStationPlan.Selection.LastRow
+
-            _planGrid.NodeMoveLeft(tmpLastRow - tmpFrisRow + 1)
+            Dim startMoveRow As Integer = GrdStationPlan.Selection.FirstRow
+            Dim moveRows As Integer = GrdStationPlan.Selection.LastRow - GrdStationPlan.Selection.FirstRow + 1
+            _planGrid.NodeMoveLeft(startMoveRow, moveRows)
         End Sub
 
         Private Sub TsBtnMoveRight_Click(sender As Object, e As EventArgs) Handles TsBtnMoveRight.Click
-            Dim tmpFrisRow As Integer = GrdStationPlan.Selection.FirstRow
+            If GrdStationPlan Is Nothing OrElse GrdStationPlan.Tree.SelectedNode Is Nothing Then Return
-            Dim tmpLastRow As Integer = GrdStationPlan.Selection.LastRow
+
-            _planGrid.NodeMoveRight(tmpLastRow - tmpFrisRow + 1)
+            Dim startMoveRow As Integer = GrdStationPlan.Selection.FirstRow
+            Dim moveRows As Integer = GrdStationPlan.Selection.LastRow - GrdStationPlan.Selection.FirstRow + 1
+            _planGrid.NodeMoveRight(startMoveRow, moveRows)
         End Sub
 
         Private Sub TsBtnOpen_Click(sender As Object, e As EventArgs) Handles TsBtnOpen.Click
@@ -290,12 +298,19 @@ Namespace UTSModule.Station
                     ApplicationLog.WriteInfoLog($"编辑页面执行流程加载完成。")
                 End If
             End Using
+
+            _planGrid.ClearNavigation()
+            TsBtnBackward.Enabled = _planGrid.CanBackward
+            TsBtnForward.Enabled = _planGrid.CanForward
         End Sub
 
         Private Sub TsBtnLoad_Click(sender As Object, e As EventArgs) Handles TsBtnLoad.Click
             If MsgBox("重载会将流程返回为上一次保存的流程状态,是否继续", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
                 ApplicationLog.WriteInfoLog($"编辑页面执行流程重载中。")
                 LoadTreeViewFormXml()
+                _planGrid.ClearNavigation()
+                TsBtnBackward.Enabled = _planGrid.CanBackward
+                TsBtnForward.Enabled = _planGrid.CanForward
                 ApplicationLog.WriteInfoLog($"编辑页面执行流程重载完成。")
             End If
         End Sub
@@ -747,14 +762,14 @@ Namespace UTSModule.Station
             Dim tmpFrisRow As Integer = GrdStationPlan.Selection.FirstRow
             Dim tmpLastRow As Integer = GrdStationPlan.Selection.LastRow
             Dim tempRowCount As Integer = tmpLastRow - tmpFrisRow + 1
-            _planGrid.NodeAdd(tempRowCount)
+            _planGrid.NodeAdd(tmpFrisRow, tempRowCount)
         End Sub
 
         Private Sub tsBtnRemoveRow_Click(sender As Object, e As EventArgs) Handles tsBtnRemoveRow.Click
             Dim tmpFrisRow As Integer = GrdStationPlan.Selection.FirstRow
             Dim tmpLastRow As Integer = GrdStationPlan.Selection.LastRow
             Dim tempRowCount As Integer = tmpLastRow - tmpFrisRow + 1
-            _planGrid.NodeDel(tempRowCount)
+            _planGrid.NodeDel(tmpFrisRow, tempRowCount)
         End Sub
 
         Private Sub MsiGridRowBlockInsert_Click(sender As Object, e As EventArgs) Handles MsiGridRowBlockInsert.Click
@@ -765,32 +780,12 @@ Namespace UTSModule.Station
             tsBtnRemoveRow.PerformClick()
         End Sub
 
-        Private Sub MsiCopyNode_Click(sender As Object, e As EventArgs) Handles MsiCopyNode.Click
+        Private Sub TsBtnCopyWholeRow_Click(sender As Object, e As EventArgs) Handles TsBtnBackward.Click
-            GrdStationPlan.Selection.CopyData()
+            _planGrid.BackwardNavigation()
         End Sub
 
-        Private Sub MsiCutNode_Click(sender As Object, e As EventArgs) Handles MsiCutNode.Click
+        Private Sub TsBtnPasteWholdRows_Click(sender As Object, e As EventArgs) Handles TsBtnForward.Click
-            GrdStationPlan.Selection.CutData()
+            _planGrid.ForwardNavigation()
-        End Sub
-
-        Private Sub MsiNodePaste_Click(sender As Object, e As EventArgs) Handles MsiNodePaste.Click
-            GrdStationPlan.Selection.PasteData()
-        End Sub
-
-        Private Sub MsiCopyWholeRow_Click(sender As Object, e As EventArgs) Handles MsiCopyWholeRow.Click
-            TsBtnCopyWholeRow.PerformClick()
-        End Sub
-
-        Private Sub MsiPasteWholeRow_Click(sender As Object, e As EventArgs) Handles MsiPasteWholeRow.Click
-            TsBtnPasteWholdRows.PerformClick()
-        End Sub
-
-        Private Sub TsBtnCopyWholeRow_Click(sender As Object, e As EventArgs) Handles TsBtnCopyWholeRow.Click
-            _planGrid.MultiLineCopyData()
-        End Sub
-
-        Private Sub TsBtnPasteWholdRows_Click(sender As Object, e As EventArgs) Handles TsBtnPasteWholdRows.Click
-            _planGrid.MultiLinePasteData()
         End Sub
 
         Private Sub tsBtn_CheckAction_Click(sender As Object, e As EventArgs) Handles tsBtn_CheckAction.Click

UTS_Core/UTSModule/Station/GridNavigation.vb

@@ -0,0 +1,36 @@
+Imports FlexCell
+
+Public Class GridNavigation : Implements INavigation
+
+    Private ReadOnly _grd As Grid
+    Private ReadOnly _beforeRange As GridSelectRange
+    Private ReadOnly _afterRange As GridSelectRange
+
+    Sub New(grd As FlexCell.Grid, beforeRange As GridSelectRange, afterRange As GridSelectRange)
+        _grd = grd
+        Me._beforeRange = beforeRange
+        Me._afterRange = afterRange
+    End Sub
+
+
+    Public Sub Backward() Implements INavigation.Backward
+        _grd.Range(_beforeRange.StartRow, _beforeRange.StartCol, _beforeRange.EndRow, _beforeRange.EndCol).SelectCells()
+    End Sub
+
+    Public Sub Forward() Implements INavigation.Forward
+        _grd.Range(_afterRange.StartRow, _afterRange.StartCol, _afterRange.EndRow, _afterRange.EndCol).SelectCells()
+    End Sub
+
+End Class
+
+
+Public Class GridSelectRange
+    Public Property StartRow As Integer
+    Public Property StartCol As Integer
+
+    Public Property EndRow As Integer
+
+    Public Property EndCol As Integer
+
+
+End Class

UTS_Core/UTSModule/Station/GridNavigationManager.vb

@@ -0,0 +1,82 @@
+Public Module GridNavigationManager
+    Private _forwardStack As New Stack(Of INavigation)()
+    Private _backwardStack As New Stack(Of INavigation)()
+    Private _isRunning As Boolean = False
+
+
+    Sub New()
+
+    End Sub
+
+    ''' <summary>
+    ''' 是否正在执行导航操作
+    ''' </summary>
+    ''' <remarks></remarks>
+    Public ReadOnly Property IsRunning As Boolean
+        Get
+            Return _isRunning
+        End Get
+    End Property
+
+
+    ''' <summary>
+    ''' 是否可以后退
+    ''' </summary>
+    ''' <returns></returns>
+    Public ReadOnly Property CanForward As Boolean
+        Get
+            Return _forwardStack.Count > 0
+        End Get
+    End Property
+
+    ''' <summary>
+    ''' 是否可以前进
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public ReadOnly Property CanBackward As Boolean
+        Get
+            Return _backwardStack.Count > 0
+        End Get
+    End Property
+
+    ''' <summary>
+    ''' 添加导航
+    ''' <param name="navigation">导航</param>
+    ''' </summary>
+    Public Sub Append(navigation As INavigation)
+        _backwardStack.Push(navigation)
+        _forwardStack.Clear()
+    End Sub
+
+    ''' <summary>
+    ''' 
+    ''' </summary>
+    Public Sub RemoveForward()
+        If CanBackward Then _backwardStack.Pop()
+    End Sub
+
+    Public Sub Clear()
+        _forwardStack.Clear()
+        _backwardStack.Clear()
+    End Sub
+
+    Public Sub Forward()
+        If Not CanForward Then Return
+        Dim navigation As INavigation = _forwardStack.Pop()
+        _backwardStack.Push(navigation)
+        _isRunning = True
+        navigation.Forward()
+        _isRunning = False
+    End Sub
+
+    Public Sub Backward()
+        If Not CanBackward Then Return
+        Dim navigation As INavigation = _backwardStack.Pop()
+        _forwardStack.Push(navigation)
+        _isRunning = True
+        navigation.Backward()
+        _isRunning = False
+    End Sub
+
+End Module

UTS_Core/UTSModule/Station/GridNodeMoveUpCommand.vb

@@ -0,0 +1,28 @@
+Imports UTS_Core.Undo
+Imports UTS_Core.UTSModule.Station
+
+Public Class GridNodeMoveUpCommand : Implements ICommand
+
+    Private ReadOnly grd As StationPlanGrid
+    Private ReadOnly startMoveRow As Integer
+    Private ReadOnly moveRows As Integer
+
+    Sub New(grd As StationPlanGrid, startMoveRow As Integer, moveRows As Integer)
+        Me.grd = grd
+        Me.startMoveRow = startMoveRow
+        Me.moveRows = moveRows
+    End Sub
+
+
+    Public Sub Execute() Implements ICommand.Execute
+        grd.NodeMoveUp(startMoveRow, moveRows)
+    End Sub
+
+    Public Sub Redo() Implements ICommand.Redo
+        grd.NodeMoveUp(startMoveRow, moveRows)
+    End Sub
+
+    Public Sub Undo() Implements ICommand.Undo
+        grd.NodeMoveDown(startMoveRow, moveRows)
+    End Sub
+End Class

UTS_Core/UTSModule/Station/INavigation.vb

@@ -0,0 +1,12 @@
+Public Interface INavigation
+    ''' <summary>
+    ''' 向后导航
+    ''' </summary>
+    Sub Backward()
+
+    ''' <summary>
+    ''' 向前导航
+    ''' </summary>
+    Sub Forward()
+
+End Interface

UTS_Core/UTSModule/Station/RowNodeGrid.vb

@@ -419,8 +419,6 @@ Namespace UTSModule.Station
         Public Sub AfterSelectUpdateGrid(node As RowNode, LineNumber As Integer, LineActionEn As Boolean)
             Dim col As Integer = ColNames.ColValue
             Dim textColor As Color
-            Dim idx As Integer
-
             Dim RecordNameEn As Boolean
 
             _grd.AutoRedraw = False

UTS_Core/UTSModule/Station/StationPlanGrid.vb

@@ -1,8 +1,10 @@
 Imports System.Drawing
 Imports System.Reflection.Emit
 Imports System.Text
+Imports System.Web.UI.WebControls
 Imports System.Windows.Forms
 Imports FlexCell
+Imports Steema.TeeChart.Walls
 Imports UTS_Core.UTSModule.Production
 Imports UTS_Core.UTSModule.Test.Command
 Imports UTS_Core.UTSModule.Test.StatusMonitor
@@ -120,6 +122,7 @@ Namespace UTSModule.Station
                 RemoveHandler _grd.Click, AddressOf Grid_Click
                 RemoveHandler _grd.CellChange, AddressOf Grid_CellChange
                 RemoveHandler _grd.SelChange, AddressOf Grid_SelChange
+                RemoveHandler _grd.LeaveCell, AddressOf Grid_LeaveCell
                 RemoveHandler _grd.ComboDropDown, AddressOf Grid_ComboDropDown
                 RemoveHandler _grd.ComboClick, AddressOf Grid_ComboClick
                 RemoveHandler _grd.MouseMove, AddressOf Grid_MouseMove
@@ -132,6 +135,7 @@ Namespace UTSModule.Station
                 AddHandler _grd.Click, AddressOf Grid_Click
                 AddHandler _grd.CellChange, AddressOf Grid_CellChange
                 AddHandler _grd.SelChange, AddressOf Grid_SelChange
+                AddHandler _grd.LeaveCell, AddressOf Grid_LeaveCell
                 AddHandler _grd.ComboDropDown, AddressOf Grid_ComboDropDown
                 AddHandler _grd.ComboClick, AddressOf Grid_ComboClick
                 AddHandler _grd.MouseMove, AddressOf Grid_MouseMove
@@ -174,28 +178,45 @@ Namespace UTSModule.Station
         End Sub
 
 
-        Private gCopyWholeRows As Integer '整行复制时记录行数
+        ''' <summary>
-        Private gCopyRow As Integer '整行复制时记录行数
+        ''' 向后导航
-        Private gIsCopyRowDataReady As Boolean = False '整行复制时标记，只能复制一次
+        ''' </summary>
-
+        Public Sub BackwardNavigation()
-        Public Sub MultiLineCopyData()
+            GridNavigationManager.Backward()
-            Dim tmpFrisRow As Integer = _grd.Selection.FirstRow
-            Dim tmpLastRow As Integer = _grd.Selection.LastRow
-            gCopyWholeRows = tmpLastRow - tmpFrisRow + 1
-            _grd.Range(tmpFrisRow, ColNames.Action, tmpLastRow, _grd.Cols - 1).CopyData()
         End Sub
 
-        Public Sub MultiLinePasteData()
+        ''' <summary>
-            Dim tmpFrisRow As Integer = _grd.Selection.FirstRow
+        ''' 向前导航
+        ''' </summary>
+        Public Sub ForwardNavigation()
+            GridNavigationManager.Forward()
+        End Sub
 
-            LockGridAutoRedraw()
+        ''' <summary>
+        ''' 是否可以后退
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function CanBackward() As Boolean
+            Return GridNavigationManager.CanBackward
+        End Function
 
-            '插入节点
+        ''' <summary>
-            NodeAdd(gCopyWholeRows)
+        ''' 是否可以前进
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Public Function CanForward() As Boolean
+            Return GridNavigationManager.CanForward
+        End Function
 
-            _grd.Range(tmpFrisRow, ColNames.Action, tmpFrisRow + gCopyWholeRows, _grd.Cols - 1).PasteData()
+        ''' <summary>
-
+        ''' 
-            UnLockGridAutoRedraw()
+        ''' </summary>
+        Public Sub ClearNavigation()
+            GridNavigationManager.Clear()
+            _lastSelction = Nothing
+            _lastTempSelction = Nothing
         End Sub
 
         '离开表格时活动单元格背景颜色
@@ -1265,11 +1286,41 @@ Namespace UTSModule.Station
             RaiseEvent RowNodeTextChanged(sender, args)
         End Sub
 
+        Private _lastSelction As GridSelectRange
+        Private _lastTempSelction As GridSelectRange
+        Private _isSelection As Boolean = False
+
         Private Sub Grid_SelChange(sender As Object, e As Grid.SelChangeEventArgs)
             'todo:更新详情表格
             If _headNode Is Nothing Then Return
             Dim node As RowNode = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
             If node Is Nothing Then Return
+            Console.WriteLine($"Grid_SelChange: row:{e.FirstRow} col:{e.FirstCol} end row{e.LastRow} {e.LastCol}")
+            If Not GridNavigationManager.IsRunning Then
+                Dim newSelection As New GridSelectRange With {.StartRow = e.FirstRow, .StartCol = e.FirstCol, .EndRow = e.LastRow, .EndCol = e.LastCol}
+                If _lastSelction IsNot Nothing AndAlso _lastTempSelction IsNot Nothing Then
+                    If _lastTempSelction IsNot Nothing AndAlso _lastTempSelction.StartRow = newSelection.StartRow AndAlso _lastTempSelction.StartCol = newSelection.StartCol Then
+                        _isSelection = True
+                        GridNavigationManager.RemoveForward()
+                        GridNavigationManager.Append(New GridNavigation(_grd, _lastSelction, newSelection))
+                    Else
+                        If _isSelection Then
+                            GridNavigationManager.RemoveForward()
+                            GridNavigationManager.Append(New GridNavigation(_grd, _lastSelction, _lastTempSelction))
+                            GridNavigationManager.Append(New GridNavigation(_grd, _lastTempSelction, newSelection))
+                            _lastSelction = _lastTempSelction
+                            _isSelection = False
+                        Else
+                            GridNavigationManager.Append(New GridNavigation(_grd, _lastTempSelction, newSelection))
+                            If _lastSelction Is Nothing OrElse (_lastSelction.StartRow <> _lastTempSelction.StartRow AndAlso _lastSelction.StartCol <> _lastTempSelction.StartCol) Then _lastSelction = _lastTempSelction
+                        End If
+                    End If
+                    _lastTempSelction = newSelection
+                Else
+                    _lastTempSelction = newSelection
+                    _lastSelction = _lastTempSelction
+                End If
+            End If
 
             ActiveNode = node
 
@@ -1286,6 +1337,15 @@ Namespace UTSModule.Station
             RaiseEvent PlanNodeSelectChanged(sender, event2)
         End Sub
 
+        Private Sub Grid_LeaveCell(sender As Object, e As Grid.LeaveCellEventArgs)
+            'If Not GrdiNavigationManager.IsRunning Then
+            '    Dim lastSelection As New GridSelectRange With {.StartRow = e.Row, .StartCol = e.Col, .EndRow = e.Row, .EndCol = e.Col}
+            '    Dim newSelection As New GridSelectRange With {.StartRow = e.NewRow, .StartCol = e.NewCol, .EndRow = e.NewRow, .EndCol = e.NewCol}
+            '    GrdiNavigationManager.Append(New GridNavigation(_grd, lastSelection, newSelection))
+            '    Console.WriteLine($"GridNavigation: row:{e.NewRow} col:{e.NewCol} last row{e.Row} {e.Col}")
+            'End If
+        End Sub
+
 
         Private _dropCol As Integer = 0
         Private _dropRow As Integer = 0
@@ -1480,20 +1540,19 @@ Namespace UTSModule.Station
         End Sub
 
 
-        Public Sub NodeAdd(rows As Integer)
+        Public Sub NodeAdd(startMoveRow As Integer, rows As Integer)
             Dim idx As Integer
             Dim node As RowNode
 
 
             If rows < 1 Then Return
-            If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
             If _headNode Is Nothing Then Return
 
             LockGridAutoRedraw()
 
-            Dim row As Integer = _grd.ActiveCell.Row + rows
+            Dim row As Integer = startMoveRow + rows
             For idx = 1 To rows
-                node = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
+                node = _headNode.RowList(startMoveRow - _drawStartRow + 1)
 
                 If node Is Nothing Then Exit For
 
@@ -1519,19 +1578,18 @@ Namespace UTSModule.Station
             UnLockGridAutoRedraw()
         End Sub
 
-        Public Sub NodeDel(rows As Integer)
+        Public Sub NodeDel(startMoveRow As Integer, rows As Integer)
             Dim idx As Integer
             Dim node As RowNode
 
             If rows < 1 Then Return
-            If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
             If _headNode Is Nothing Then Return
 
             LockGridAutoRedraw()
 
-            Dim row As Integer = _grd.ActiveCell.Row - 1
+            Dim row As Integer = startMoveRow - 1
             For idx = 1 To rows
-                node = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
+                node = _headNode.RowList(startMoveRow - _drawStartRow + 1)
                 If node Is Nothing Then Exit For
 
                 '更新内存
@@ -1578,62 +1636,220 @@ Namespace UTSModule.Station
         End Sub
 
 
-        Public Sub NodeMoveUp(rows As Integer)
+        Public Sub NodeMoveUp(startMoveRow As Integer, moveRows As Integer)
-
-            Dim node As RowNode
-            Dim moveDownRow As Integer     '下移动前起始位置
-            Dim moveDownCount As Integer  '下移动总量
-
-            Dim moveUpRow As Integer     '上移动前起始位置
-            Dim moveUpCount As Integer  '上移动总量
-
-            If rows < 1 Then Return
-            If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
             If _headNode Is Nothing Then Return
 
+            '获取起始节点信息
+            Dim lstMoveNodes As New List(Of RowNode)
+            Dim lstFixNodes As New List(Of RowNode)
+            Dim isMoveUp As Boolean = True
 
-            node = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
+            Dim startNode As RowNode = _headNode.RowList(startMoveRow - _drawStartRow + 1)
-            If node Is Nothing Then Return
+            Dim prevNode As RowNode = startNode.PrevNode
+            Dim node As RowNode = startNode
+            Dim moveUpRows As Integer = node.AllChildCount + 1
 
-            '更新内存
+            If prevNode Is Nothing Then Return
-            If node.PrevNode Is Nothing Then Return
 
-            moveDownRow = node.PrevNode.RowListIndex    '下移动前起始位置
+            '获取所有移动节点信息
-            moveDownCount = node.PrevNode.AllChildCount + 1 '下移动总量
+            lstMoveNodes.Add(node)
+            For i As Integer = 2 To moveRows
+                node = _headNode.RowList(startMoveRow - _drawStartRow + i)
+                If node.RowLever < node.RowLever Then Exit For '高于起始节点级别不移动
+                If node.RowLever > node.RowLever Then Continue For '低于起始节点级别认为是子节点不记录
 
-            moveUpRow = node.RowListIndex    '上移动前起始位置
+                moveUpRows += node.AllChildCount + 1
-            moveUpCount = node.AllChildCount + 1 '上移动总量
+                lstMoveNodes.Add(node)
+            Next
 
-            node.MoveUp()
+            '如果需要上移的节点过多则修改为上一节点下移操作
+            lstFixNodes.Add(prevNode)
+            isMoveUp = moveUpRows < prevNode.AllChildCount
 
-            UpdateGrid(_grd.Tree.SelectedNode.PrevNode, _grd.Tree.SelectedNode)
+            If isMoveUp Then
+                NodeMoveUp(lstFixNodes, lstMoveNodes)
+            Else
+                NodeMoveNext(lstFixNodes, lstMoveNodes)
+            End If
+
+
+
+            'Dim grdNode As FlexCell.Node
+            'Dim grdPrevNode As FlexCell.Node
+
+            ''进行移动操作
+            'LockGridAutoRedraw()
+            '_uploading = True
+
+            'For i As Integer = 0 To lstMoveNodes.Count - 1
+
+            '    node = lstMoveNodes(i)
+
+            '    grdNode = _grd.Tree.FindNode(node.RowListIndex)
+            '    grdPrevNode = grdNode.PrevNode
+
+            '    If node Is Nothing Then Exit For
+            '    If node.PrevNode Is Nothing Then Exit For
+
+            '    If isMoveUp Then
+            '        node.MoveUp()
+            '        grdNode.Remove()
+            '        grdPrevNode.Parent.Nodes.Insert(grdPrevNode.Index, String.Empty)
+            '        UpdateGrid(_grd, node.RowListIndex, node)
+            '        '获取表格节点，添加其子节点
+            '        Dim pNode As FlexCell.Node = _grd.Tree.FindNode(node.RowListIndex)
+            '        AddGridTreeNode(pNode, node)
+
+            '        ' UpdateGrid(grdPrevNode, grdNode)
+            '    Else
+            '        node.MoveDown()
+            '        grdNode.Remove()
+            '        grdPrevNode.Parent.Nodes.Insert(grdPrevNode.Index, String.Empty)
+
+
+            '    End If
+            'Next
+
+            ''节点修改
+            'StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
+
+            '_uploading = False
+            'UnLockGridAutoRedraw()
+        End Sub
+
+        Public Sub NodeMoveNext(upNode As List(Of RowNode), downNode As List(Of RowNode))
+            LockGridAutoRedraw()
+            _uploading = True
+
+            Dim grdNode As FlexCell.Node
+            Dim grdParentNode As FlexCell.Node
+            Dim preNode As RowNode = downNode(downNode.Count - 1)
+            For Each node As RowNode In upNode
+                grdNode = _grd.Tree.FindNode(node.RowListIndex)
+                grdParentNode = grdNode.Parent
+
+                node.Remove()
+                preNode.ParentNode.InsertNode(preNode.RowIndex + 1, node)
+
+                grdNode.Remove()
+                grdParentNode.Nodes.Insert(node.RowIndex, String.Empty)
+                UpdateGrid(_grd, node.RowListIndex, node)
+
+                '获取表格节点，添加其子节点
+                Dim pNode As FlexCell.Node = _grd.Tree.FindNode(node.RowListIndex)
+                AddGridTreeNode(pNode, node)
+
+                preNode = node
+            Next
+
+
+            '节点修改
+            StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
+
+            _uploading = False
+            UnLockGridAutoRedraw()
+        End Sub
+
+        Public Sub NodeMoveUp(upNode As List(Of RowNode), downNode As List(Of RowNode))
+            LockGridAutoRedraw()
+            _uploading = True
+
+            Dim grdNode As FlexCell.Node
+            Dim grdParentNode As FlexCell.Node
+            Dim nextNode As RowNode = upNode(0)
+            For Each node As RowNode In downNode
+                grdNode = _grd.Tree.FindNode(node.RowListIndex)
+                grdParentNode = grdNode.Parent
+
+                node.Remove()
+                nextNode.ParentNode.InsertNode(nextNode.RowIndex, node)
+
+                grdNode.Remove()
+                grdParentNode.Nodes.Insert(node.RowIndex, String.Empty)
+                UpdateGrid(_grd, node.RowListIndex, node)
+
+                '获取表格节点，添加其子节点
+                Dim pNode As FlexCell.Node = _grd.Tree.FindNode(node.RowListIndex)
+                AddGridTreeNode(pNode, node)
+
+                nextNode = node
+            Next
+
+            '节点修改
+            StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
+
+            _uploading = False
+            UnLockGridAutoRedraw()
 
-            _grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
         End Sub
 
 
-        Public Sub NodeMoveDown()
-            If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
 
+        Public Sub NodeMoveDown(startMoveRow As Integer, moveRows As Integer)
             If _headNode Is Nothing Then Return
-            Dim node As RowNode = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
+
-            If node Is Nothing Then Return
+            '获取起始节点信息
+            Dim lstMoveNodes As New List(Of RowNode)
+            Dim lstFixNodes As New List(Of RowNode)
+            Dim isMoveDown As Boolean = True
+
+            Dim endNode As RowNode = _headNode.RowList(startMoveRow + moveRows - _drawStartRow)
+            Dim nextNode As RowNode = endNode.NextNode
+            Dim node As RowNode = endNode
+            Dim moveDownRows As Integer = 0
+
+            If nextNode Is Nothing Then Return
+
+            '获取所有移动节点信息
+            For i As Integer = 1 To moveRows
+                node = _headNode.RowList(startMoveRow - _drawStartRow + i)
+                If node.RowLever < node.RowLever Then Exit For '高于起始节点级别不移动
+                If node.RowLever > node.RowLever Then Continue For '低于起始节点级别认为是子节点不记录
+
+                moveDownRows += node.AllChildCount + 1
+                lstMoveNodes.Add(node)
+            Next
+
+            '如果需要上移的节点过多则修改为上一节点下移操作
+            lstFixNodes.Add(nextNode)
+            isMoveDown = moveDownRows < nextNode.AllChildCount
+
+            If isMoveDown Then
+                NodeMoveNext(lstMoveNodes, lstFixNodes)
+            Else
+                NodeMoveUp(lstMoveNodes, lstFixNodes)
+            End If
 
 
-            '更新内存
-            If node.NextNode Is Nothing Then Return
 
-            Dim moveDownRow As Integer = node.RowListIndex    '下移动前起始位置
-            Dim moveDownCount As Integer = node.AllChildCount + 1 '下移动总量
 
-            Dim moveUpRow As Integer = node.NextNode.RowListIndex    '上移动前起始位置
-            Dim moveUpCount As Integer = node.NextNode.AllChildCount + 1 '上移动总量
 
-            node.MoveDown()
 
-            UpdateGrid(_grd.Tree.SelectedNode, _grd.Tree.SelectedNode.NextNode)
 
-            _grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
+
+
+
+            'If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
+
+            'If _headNode Is Nothing Then Return
+            'Dim node As RowNode = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + 1)
+            'If node Is Nothing Then Return
+
+
+            ''更新内存
+            'If node.NextNode Is Nothing Then Return
+
+            'Dim moveDownRow As Integer = node.RowListIndex    '下移动前起始位置
+            'Dim moveDownCount As Integer = node.AllChildCount + 1 '下移动总量
+
+            'Dim moveUpRow As Integer = node.NextNode.RowListIndex    '上移动前起始位置
+            'Dim moveUpCount As Integer = node.NextNode.AllChildCount + 1 '上移动总量
+
+            'node.MoveDown()
+
+            'UpdateGrid(_grd.Tree.SelectedNode, _grd.Tree.SelectedNode.NextNode)
+
+            '_grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
         End Sub
 
 
@@ -1706,27 +1922,16 @@ Namespace UTSModule.Station
         ''' <summary>
         ''' 节点升级
         ''' </summary>
-        Public Sub NodeMoveLeft(rows As Integer)
+        Public Sub NodeMoveLeft(startMoveRow As Integer, moveRows As Integer)
-            Dim node As RowNode
-
-            Dim moveDownRow As Integer     '下移动前起始位置
-            Dim moveDownCount As Integer  '下移动总量
-            Dim moveUpRow As Integer     '上移动前起始位置
-            Dim moveUpCount As Integer  '上移动总量
-            Dim nextNode As RowNode
-
-            If rows < 1 Then Return
-            If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
-
             If _headNode Is Nothing Then Return
 
-            Dim moveLeftSatrtRow As Integer = _grd.ActiveCell.Row
+            Dim node As RowNode
             Dim grdNode As FlexCell.Node
             Dim grdParentNode As FlexCell.Node
             LockGridAutoRedraw()
             _uploading = True
-            For idx As Integer = 1 To rows
+            For idx As Integer = moveRows To 1 Step -1
-                node = _headNode.RowList(moveLeftSatrtRow - _drawStartRow + 1)
+                node = _headNode.RowList(startMoveRow - _drawStartRow + idx)
                 Console.WriteLine($"Index:{node.RowListIndex}")
 
                 If node Is Nothing Then Exit For
@@ -1735,28 +1940,6 @@ Namespace UTSModule.Station
                 grdNode = _grd.Tree.FindNode(node.RowListIndex)
                 grdParentNode = grdNode.Parent
 
-                '更新内存
-                If node.NextNode Is Nothing Then
-                    node.MoveLeft()
-
-                    grdNode.Remove()
-                    grdParentNode.Parent.Nodes.Insert(grdParentNode.Index + 1, "")
-                    UpdateGrid(_grd, node.RowListIndex, node)
-
-                    AddGridTreeNode(_grd.Tree.FindNode(node.RowListIndex), node)
-                    Exit For
-                End If
-                moveDownRow = node.RowListIndex    '下移动前起始位置
-                moveDownCount = node.AllChildCount + 1 '下移动总量
-
-                moveUpRow = node.NextNode.RowListIndex    '上移动前起始位置
-                moveUpCount = 0 '上移动总量
-                nextNode = node.NextNode
-                While nextNode IsNot Nothing
-                    moveUpCount += nextNode.AllChildCount + 1
-                    nextNode = nextNode.NextNode
-                End While
-
                 node.MoveLeft()
                 Console.WriteLine($"Node:{node.RowLever}")
 
@@ -1764,9 +1947,11 @@ Namespace UTSModule.Station
                 grdParentNode.Parent.Nodes.Insert(grdParentNode.Index + 1, "")
                 UpdateGrid(_grd, node.RowListIndex, node)
                 AddGridTreeNode(_grd.Tree.FindNode(node.RowListIndex), node)
-                _grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
                 StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
             Next
+
+
+
             _uploading = False
             UnLockGridAutoRedraw()
         End Sub
@@ -1775,20 +1960,18 @@ Namespace UTSModule.Station
         ''' <summary>
         ''' 节点降级
         ''' </summary>
-        Public Sub NodeMoveRight(rows As Integer)
+        Public Sub NodeMoveRight(startMoveRow As Integer, moveRows As Integer)
-            Dim node As RowNode
-
-            If rows < 1 Then Return
-            If _grd.ActiveCell Is Nothing OrElse _grd.Tree.SelectedNode Is Nothing Then Return
             If _headNode Is Nothing Then Return
 
+            Dim node As RowNode
             Dim grdNode As FlexCell.Node
             Dim grdPreNode As FlexCell.Node
+            Dim moveLeftSatrtRow As Integer = _grd.ActiveCell.Row
+
             LockGridAutoRedraw()
             _uploading = True
-
+            For idx As Integer = 1 To moveRows
-            For idx As Integer = 1 To rows
+                node = _headNode.RowList(startMoveRow - _drawStartRow + idx)
-                node = _headNode.RowList(_grd.ActiveCell.Row - _drawStartRow + idx)
                 If node Is Nothing Then Exit For
                 If node.RowType = RowNode.RowTypeEnum.FixedModule Then Exit For
                 If node.RowIndex = 0 Then Exit For
@@ -1802,11 +1985,9 @@ Namespace UTSModule.Station
                 grdPreNode.Nodes.Add("", "")
                 UpdateGrid(_grd, node.RowListIndex, node)
                 AddGridTreeNode(_grd.Tree.FindNode(node.RowListIndex), node)
-                _grd.Cell(node.RowListIndex, _grd.ActiveCell.Col).SetFocus()
                 StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed
             Next
 
-
             _uploading = False
             UnLockGridAutoRedraw()
         End Sub

UTS_Core/UTS_Core.vbproj

@@ -298,6 +298,10 @@
     <Compile Include="UTSModule\Service\AppRegister.vb" />
     <Compile Include="UTSModule\Service\AutsTcpClient.vb" />
     <Compile Include="UTSModule\Service\ServiceTask.vb" />
+    <Compile Include="UTSModule\Station\GridNavigationManager.vb" />
+    <Compile Include="UTSModule\Station\GridNavigation.vb" />
+    <Compile Include="UTSModule\Station\GridNodeMoveUpCommand.vb" />
+    <Compile Include="UTSModule\Station\INavigation.vb" />
     <Compile Include="UTSModule\Station\IStationPlan.vb" />
     <Compile Include="UTSModule\Station\StationPackagePlan.vb" />
     <Compile Include="UTSModule\Station\PlanNodeSelectChangedEventArgs.vb" />

UTS_Core/Undo/CommandManager.vb

@@ -71,7 +71,6 @@
             command.Redo()
 
             UndoCommands.Push(command)
-            'MemberwiseClone()‘浅拷贝
         End Sub
 
     End Class

UTS_Core/Undo/ICommand.vb

@@ -6,7 +6,6 @@
         Sub Execute()
 
 
-
         ''' <summary>
         ''' 重做命令
         ''' </summary>

UTS_Core/bin/Debug/UTS_Core.xml

@@ -6106,6 +6106,35 @@ UTS_Core
  对第二行的Action执行一遍操作，以触发更新事件
  </summary>
 </member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.BackwardNavigation">
+ <summary>
+ 向后导航
+ </summary>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ForwardNavigation">
+ <summary>
+ 向前导航
+ </summary>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanBackward">
+ <summary>
+ 是否可以后退
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanForward">
+ <summary>
+ 是否可以前进
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ClearNavigation">
+ <summary>
+ 
+ </summary>
+</member>
 <member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.Grid_MouseLeave(System.Object,System.EventArgs)">
  <summary>
  光标离开grd表格时，黄色底色切换到选中行
@@ -6228,12 +6257,12 @@ UTS_Core
  </summary>
  <param name="node"></param>
 </member>
-<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32)">
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32,System.Int32)">
  <summary>
  节点升级
  </summary>
 </member>
-<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32)">
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32,System.Int32)">
  <summary>
  节点降级
  </summary>
@@ -9774,6 +9803,46 @@ UTS系列App与UtsCore交互为避免重复书写产生的中间类
  </summary>
  <returns></returns>
 </member>
+<member name="P:UTS_Core.GridNavigationManager.IsRunning">
+ <summary>
+ 是否正在执行导航操作
+ </summary>
+ <remarks></remarks>
+</member>
+<member name="P:UTS_Core.GridNavigationManager.CanForward">
+ <summary>
+ 是否可以后退
+ </summary>
+ <returns></returns>
+</member>
+<member name="P:UTS_Core.GridNavigationManager.CanBackward">
+ <summary>
+ 是否可以前进
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+<member name="M:UTS_Core.GridNavigationManager.Append(UTS_Core.INavigation)">
+ <summary>
+ 添加导航
+ <param name="navigation">导航</param>
+ </summary>
+</member>
+<member name="M:UTS_Core.GridNavigationManager.RemoveForward">
+ <summary>
+ 
+ </summary>
+</member>
+<member name="M:UTS_Core.INavigation.Backward">
+ <summary>
+ 向后导航
+ </summary>
+</member>
+<member name="M:UTS_Core.INavigation.Forward">
+ <summary>
+ 向前导航
+ </summary>
+</member>
 <member name="M:UTS_Core.utsLabel.RunMode">
  <summary>
  解析模式，并且确定有关参数

UTS_Core/obj/Debug/UTS_Core.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-c5e447f21e4566eafb50096c9ff8e17beb0c61abb20024da831ee1debf91f22c
+af7ffd6c70aae8262a8fd7fa2be8ccce4d83b9bc4c1bfc834a19f24335ece0da

UTS_Core/obj/Debug/UTS_Core.xml

@@ -6106,6 +6106,35 @@ UTS_Core
  对第二行的Action执行一遍操作，以触发更新事件
  </summary>
 </member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.BackwardNavigation">
+ <summary>
+ 向后导航
+ </summary>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ForwardNavigation">
+ <summary>
+ 向前导航
+ </summary>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanBackward">
+ <summary>
+ 是否可以后退
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.CanForward">
+ <summary>
+ 是否可以前进
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.ClearNavigation">
+ <summary>
+ 
+ </summary>
+</member>
 <member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.Grid_MouseLeave(System.Object,System.EventArgs)">
  <summary>
  光标离开grd表格时，黄色底色切换到选中行
@@ -6228,12 +6257,12 @@ UTS_Core
  </summary>
  <param name="node"></param>
 </member>
-<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32)">
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveLeft(System.Int32,System.Int32)">
  <summary>
  节点升级
  </summary>
 </member>
-<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32)">
+<member name="M:UTS_Core.UTSModule.Station.StationPlanGrid.NodeMoveRight(System.Int32,System.Int32)">
  <summary>
  节点降级
  </summary>
@@ -9774,6 +9803,46 @@ UTS系列App与UtsCore交互为避免重复书写产生的中间类
  </summary>
  <returns></returns>
 </member>
+<member name="P:UTS_Core.GridNavigationManager.IsRunning">
+ <summary>
+ 是否正在执行导航操作
+ </summary>
+ <remarks></remarks>
+</member>
+<member name="P:UTS_Core.GridNavigationManager.CanForward">
+ <summary>
+ 是否可以后退
+ </summary>
+ <returns></returns>
+</member>
+<member name="P:UTS_Core.GridNavigationManager.CanBackward">
+ <summary>
+ 是否可以前进
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
+<member name="M:UTS_Core.GridNavigationManager.Append(UTS_Core.INavigation)">
+ <summary>
+ 添加导航
+ <param name="navigation">导航</param>
+ </summary>
+</member>
+<member name="M:UTS_Core.GridNavigationManager.RemoveForward">
+ <summary>
+ 
+ </summary>
+</member>
+<member name="M:UTS_Core.INavigation.Backward">
+ <summary>
+ 向后导航
+ </summary>
+</member>
+<member name="M:UTS_Core.INavigation.Forward">
+ <summary>
+ 向前导航
+ </summary>
+</member>
 <member name="M:UTS_Core.utsLabel.RunMode">
  <summary>
  解析模式，并且确定有关参数