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

UTS_Core/UTSModule/Station/RowNode.vb

@@ -406,6 +406,12 @@ Namespace UTSModule.Station
             Dim cpNode As New RowNode
 
             With cpNode
+                .RowListIndex = RowListIndex
+
+                .Pause = Pause
+                .ControlType = ControlType
+                .SaveToDb = SaveToDb
+
                 .RowType = RowType
 
                 .Action = Action
@@ -428,19 +434,44 @@ Namespace UTSModule.Station
                     .Parameters.Add(param.Clone())
                 Next
 
-                .RowNodes = New RowNodeCollection(cpNode)
-                .Children = New List(Of RowNode)()
+                '.RowNodes = New RowNodeCollection(cpNode)
+                '.Children = New List(Of RowNode)()
 
-                'todo:克隆功能待重写
+                ''todo:克隆功能待重写
 
-                For Each child As RowNode In Children
-                    .RowNodes.Add(child.Clone())
-                Next
+                'For Each child As RowNode In Children
+                '    .RowNodes.Add(child.Clone())
+                'Next
             End With
 
             Return cpNode
         End Function
 
+        Public Sub CopyFrom(node As RowNode)
+            With node
+                .RowListIndex = RowListIndex
+
+                Pause = .Pause
+                ControlType = .ControlType
+                SaveToDb = .SaveToDb
+
+                RowType = .RowType
+                Action = .Action
+                RecordName = .RecordName
+                Retry = .Retry
+                RetryInterval = .RetryInterval
+                [Label] = String.Copy(.Label)
+                Description = String.Copy(.Description)
+                ErrorCode = String.Copy(.ErrorCode)
+                ErrorMessage = String.Copy(.ErrorMessage)
+                CommandType = String.Copy(.CommandType)
+                Command = String.Copy(.Command)
+                Parameters.Clear()
+                For Each param As TestCmdParam In .Parameters
+                    Parameters.Add(param.Clone())
+                Next
+            End With
+        End Sub
 #End Region
 
 #Region "节点样式"