修复升降级别问题

UTS_Core/UTSModule/Station/RowNode.vb

@@ -268,7 +268,7 @@ Namespace UTSModule.Station
                     CanDelete = True
                     CanChangeLever = True
                 Case RowTypeEnum.Flow
-                    CanAddChildNode = False
+                    CanAddChildNode = True
                     CanChangeContent = True
                     CanDelete = True
                     CanChangeLever = True

UTS_Core/UTSModule/Station/StationPlanGrid.vb

@@ -1392,7 +1392,6 @@ Namespace UTSModule.Station
         Public Sub SetNodeRecordShowMode(recode As Boolean)
             If _headNode Is Nothing Then Return
 
-            ' _grd.AutoRedraw = False
             LockGridAutoRedraw()
 
             For i As Integer = 0 To _headNode.RowList.Count - 1
@@ -1414,8 +1413,7 @@ Namespace UTSModule.Station
             Next
 
             UnLockGridAutoRedraw()
-            '_grd.AutoRedraw = True
+
-            '_grd.Refresh()
         End Sub
 
         Public Sub SetNodeExpand(expand As Boolean)
@@ -1427,27 +1425,11 @@ Namespace UTSModule.Station
                 If _headNode.RowList(i).RowType = RowNode.RowTypeEnum.FixedModule Then
                     _grd.Row(i).Visible = True
 
-                    '隐藏Main节点的子节点
-                    '_headNode.RowList(i).Expanded = expand
-                    'For Each node As RowNode In _headNode.RowList(i).Children
-                    '    _grd.Row(node.RowListIndex).Visible = expand
-                    'Next
                 ElseIf _headNode.RowList(i).RowType = RowNode.RowTypeEnum.Module Then
                     _headNode.RowList(i).Expanded = expand
 
                     For Each node As RowNode In _headNode.RowList(i).Children
                         _grd.Row(node.RowListIndex).Visible = expand
-
-
-                        'If expand Then
-                        '    If String.IsNullOrEmpty(node.Description) AndAlso String.IsNullOrEmpty(node.CommandType) Then
-                        '        _grd.Row(node.RowListIndex).Visible = False
-                        '    Else
-                        '        _grd.Row(node.RowListIndex).Visible = True
-                        '    End If
-                        'Else
-                        '    _grd.Row(node.RowListIndex).Visible = False
-                        'End If
                     Next
                 Else
                     If expand Then