以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  父级的父级指定图标报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186402)
--  作者：cd_tdh
--  发布时间：2023/4/26 14:40:00
--  父级的父级指定图标报错
老师，3级目录树，为什么增加了红色代码会报错呢？SelectedNode 肯定是第三级的节点，调试：n.ParentNode.name和n.ParentNode.ParentNode.name都是存在的，也是对的。

Dim pag As WinForm.TabControl = e.Form.Controls("tabControl1")
Dim st As String = pag.SelectedPage.Name
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.StopRedraw
For Each n As WinForm.TreeNode In tr.AllNodes
    If n.Text.IndexOf (st) >= 0 Then
        tr.SelectedNode = n 
        n.IconFile = "2.png"
        n.ParentNode.IconFile = "3.png"
\'        n.ParentNode.ParentNode.IconFile = "3.png"
    Else
        n.Ic
    End If
Next
tr.ResumeRedraw
[此贴子已经被作者于2023/4/26 14:46:31编辑过]
--  作者：有点蓝
--  发布时间：2023/4/26 14:47:00
--  
判断一下层次：http://www.foxtable.com/webhelp/topics/0907.htm
--  作者：cd_tdh
--  发布时间：2023/4/26 14:53:00
--  
果然判断了就不报错了，2级目录树时，不判断也不报错，以为直接找父级的父级就可以。