Treeview 与会计科目

一指禅62

yf_home 发表于 2021-7-9 08:49
老兄，再请教：
如何遍历TreeView1，取出所有的父节点，即一级节点。
是遍历TreeView1，不是从数据表中 ...

1. Private Sub cmdView_Click()
   
2.     Dim Node As MSComctlLib.Node
   
3.    
   
4.     Debug.Print "方法一：根据对象有无父节点判断"
   
5.     For Each Node In TreeView1.Nodes
   
6.         If Node.Parent Is Nothing Then Debug.Print Node.Text    '如果没有父节点
   
7.     Next
   
8.    
   
9.     Debug.Print "方法二: 根据对象路径判断"
   
10.     For Each Node In TreeView1.Nodes
    
11.         If UBound(Split(Node.FullPath, "")) = 0 Then Debug.Print Node.Text    '如果对象路径不包含“\”
    
12.     Next
    
13. End Sub

复制代码

一指禅62

代码显示不完整（论坛技术原因），请看截图：

bajifeng

楼主的TV用的炉火纯青了。厉害。

一指禅62

yf_home 发表于 2021-7-9 08:49
老兄，再请教：
如何遍历TreeView1，取出所有的父节点，即一级节点。
是遍历TreeView1，不是从数据表中 ...

13楼附件已为您更新了

一指禅62

bajifeng 发表于 2021-7-9 12:48
楼主的TV用的炉火纯青了。厉害。

谢谢您抬爱。