以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57247)

--  作者:jianjingmaoyi
--  发布时间:2014/9/21 22:09:00
--  目录树的问题
 我先生成一个目录树的节点,然后点击这个节点用代码生成一个子节点.


但是我遍历后 居然只能知道我之前生成的那个节点 子节点居然找不到,是怎么回事?

--  作者:有点甜
--  发布时间:2014/9/21 22:12:00
--  

 你如何遍历的?需要用AllNodes。

 

 只要正常添加,不可能查找不到。


--  作者:jianjingmaoyi
--  发布时间:2014/9/21 22:14:00
--  
问题就是找不到呀

Dim Tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each cnd As WinForm.TreeNode In Tr.Nodes \'取消子节点的选中标记,因为选中父节点,就不要选中子节点了
  \'  If cnd.Level = 1 
      \'  nms = nms & "," & cnd.ParentNode.text
        nms1 = nms1 & "," & cnd.Text
  \'  End If
Next
msgbox(nms1)
If nms1 > "" Then
    nms1 = nms1.Trim(",")
    msgbox(nms1)
End If

奇怪的很 如果我用 If cnd.Level = 1  字符串居然为空

不用的话 字符串 子节点就是不含在字符串内
[此贴子已经被作者于2014-9-21 22:15:27编辑过]

--  作者:有点甜
--  发布时间:2014/9/21 22:15:00
--  
 Tr.Nodes 改成 tr.AllNodes
--  作者:jianjingmaoyi
--  发布时间:2014/9/21 22:17:00
--  
我靠 既然犯了这么一个错误 气死我了