新增snlist三条命令

UTS_Core/UTSModule/Station/StationPlanGrid.vb

@@ -1,9 +1,6 @@
-Imports System.Diagnostics.Eventing.Reader
-Imports System.Drawing
-Imports System.Web.UI.WebControls
+Imports System.Drawing
 Imports System.Windows.Forms
 Imports FlexCell
-Imports FluentFTP
 Imports UTS_Core.UTSModule.Production
 Imports UTS_Core.UTSModule.Test.Command
 Imports UTS_Core.UTSModule.Test.StatusMonitor
@@ -2050,7 +2047,6 @@ Namespace UTSModule.Station
         Public Sub Grid_RowNodeTextChanged(sender As Object, e As RowNodeChangedEventArgs)
             Dim row As Integer = e.Node.RowListIndex
             Dim node As RowNode = e.Node
-            Dim cmd As ICommand
 
             _uploading = True
             With _grd
@@ -2103,15 +2099,6 @@ Namespace UTSModule.Station
             End With
             OnUserAction(e.BeforeNode)
             OnUserActionEnd(e.Node)
-            'If CommandManager.IsRuning = False Then
-
-
-            '    Dim dic As New Dictionary(Of Integer, TextChangedRowNode) From {
-            '        {row, New TextChangedRowNode With {.BeforeRowNode = e.BeforeNode.Clone, .AfterRowNode = e.Node.Clone}}
-            '    }
-            '    CommandManager.AddUndoCommand(New GridNodeTextChangedCommand(Me, dic))
-            '    RaiseEvent PlanGridCommandChanged(Nothing, Nothing)
-            'End If
 
             StationEditStatusMonitor.StationEditStatus = StationEditStatusMonitor.StationEditStatusEnum.Changed