主题：目录树会自动收缩的问题（已解决）

想要实现目录树中如果有未处理的流程，即带括号()的,其所在的节点就自动展开，否则收缩，效果如下图：

 

此主题相关图片如下：qq截图20130206-1.jpg

 

运用了如下代码：

'展开有审批记录的目录树
For Each nd As winform.treenode In tr.allNodes
    If nd.level = 1 Then
        Dim i As Integer = 1
        For Each nd1 As WinForm.TreeNode In nd.Nodes
            If nd1.text Like "*(*" Then
                i = i + 1
            End If
        Next
        If i > 1 Then  '展开节点及其父节点
            nd.expand()
            nd.ParentNode.expand()
        ElseIf i = 1 Then   '收缩节点及其父节点
            nd.Collapse()
            nd.ParentNode.Collapse()
        End If
    End If
Next

但遍历后只能展开最后一个符合要求的节点，以前的自动收缩掉了，如下图

此主题相关图片如下：qq截图20130206-2.jpg

 

请教各位老师要如何才能避免这种情况？

谢谢！

 应该判断一下，如果父节点已经展开就不能再关闭了。

请问一下林老师，下面的代码不是已经判断了是否展开或收缩节点吗？为什么遍历下一个时又会将前面已经展开的收缩呢？

If i > 1 Then '展开节点及其父节点
nd.expand()
nd.ParentNode.expand()
ElseIf i = 1 Then '收缩节点及其父节点
nd.Collapse()
nd.ParentNode.Collapse()
End If

 

按你说的判断应该加在哪里？

 

谢谢！

 

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As winform.treenode In tr.allNodes
    If nd.text Like "*(*" Then
        If nd.ParentNode IsNot Nothing Then
            nd.ParentNode.Expand()
        End If
   End If
Next

谢谢狐爸，但改用上述代码后所有节点都收缩了，即使有带括号"(" 的也不会展开。如下图： 

此主题相关图片如下：360截图20130226153802004-2.jpg

 

 本来生产管理下面是有审批的记录的。如下图

此主题相关图片如下：360截图20130226153802004.jpg

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As winform.treenode In tr.allNodes
    If nd.text.EndsWith(")") Then
        Dim pd As WinForm.TreeNode = nd.ParentNode
        Do While pd IsNot Nothing
            pd.Expand
            pd = pd.ParentNode           
        Loop
   End If
Next

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

谢谢，6楼这样处理就可以了。