UTS/AUTS_OLD
Archived
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

修复升降级别问题

Browse Source
This commit is contained in:
Wen Momo
2025-04-14 21:11:03 +08:00
parent 64ae1ae9bf bbe2bfc7b0
commit 329eea4e2f
9 changed files with 2 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
UTS_Core/UTSModule/Station/RowNode.vb
View File

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

20
UTS_Core/UTSModule/Station/StationPlanGrid.vb
View File

@@ -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