VB6.0中怎样用递归方法将xml文件中的内容导入到treeview控件中，好心人解决，多谢

2013-12-28

VB6.0中怎样用递归方法将xml文件中的内容导入到treeview控件中，在线等好心人解决，谢谢！本帖最后由 bcrun

VB6.0中怎样用递归方法将xml文件中的内容导入到treeview控件中，在线等好心人解决，谢谢！
本帖最后由 bcrun 于 2013-12-11 12:01:17 编辑本人新手，刚接触VB，现有一个问题急需解决，望各位好心人帮忙，不胜感激！！！

问题描述：需要将xml文件相关内容导入到treeview控件中显示，想采用递归方法来实现。
我是这样做的，先添加根节点，然后再用递归来添加下面的节点（为简便，这里先只添加了节点名称，并以此作为key），代码如下，但是编译在For循环这里出错，麻烦各位大虾们帮忙看看问题出在哪里？在线等，谢谢！如果大家有现成的相关代码，麻烦给我看看，谢谢！好人一生平安！

Private Sub Command1_Click() 
    Set root = xml.documentElement   '文档的根节点
    TreeView1.Nodes.Add , , root.nodeName, root.nodeName  '添加根节点到TreeView
    Set node = root    
    If node.hasChildNodes Then
        Call Addchildnode()
    End If
End Sub

Private Sub Addchildnode()    
    For i = 0 To Val(node.childNodes.length) - 1
        TreeView1.Nodes.Add node.nodeName, tvwChild, node.childNodes(i).nodeName, node.childNodes(i).nodeName
        If node.hasChildNodes Then
            Set node = node.childNodes(i)
            Call Addchildnode
        End If
    Next i
End Sub

[解决办法]
个人认为关键在：
Private Sub Addchildnode()
一般递归的做法是把当前node以参数传进去，比如：
Private Sub Addchildnode(dim node as Node)

热点排行