主题：[求助]这个目录树怎样写代码

此主题相关图片如下：qq截图20130830220426.png

 

此主题相关图片如下：qq截图20130830220412.png

 

 

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
Dim md As WinForm.TreeNode
tr = Forms("窗口1").Controls("TreeView1")
nd = Tr.Nodes.Add("目录","目录")
Dim ss As String = DataTables("表A").GetComboListString("第三列","[第三列] Is Not Null")
Dim aValues() As String
aValues =ss.split("|")
For Each valu As String In avalues
    Dim r1 As String
    r1= valu
    md=nd.Nodes.Add(r1,r1) 
    Dim s As String = DataTables("表A").GetComboListString("第一列","[第一列] Is Not Null")
    Dim Values() As String
    Values =s.split("|")
    For Each value As String In values
        Dim v1 As String
        v1= "【" & value & "】"
        Dim dr As DataRow = DataTables("表A").Find("[第一列] = '" & value & "'")
        Dim v2 As String = dr("第二列")
        md.Nodes.Add(v1 & v2,v1 & v2)
    Next
Next 

 

 

上述代码错在哪,请高手指点

上述代码生成的是这个样的

 

此主题相关图片如下：qq截图20130830221158.png