[求助]如何按列内容生成目录树？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目102.rar

Dim nd As WinForm.TreeNode
For Each dr As DataRow In DataTables("表A").Select("","类别")
    Dim Path As String = dr("类别")
    Dim Parts() As String = Path.Split("\")
    Dim Start As Integer
    If nd IsNot Nothing Then
        Do
            If Path.StartsWith(nd.FullPath) Then
                Start = nd.Level + 1
                nd = nd.Nodes.Add(Parts(Start),Parts(start))
                Start = nd.Level + 1
                Exit do
            Else
                nd = nd.ParentNode
                If nd Is Nothing Then
                    Exit do
                End If
            End If
        Loop
    End If
    If nd Is Nothing Then
        nd = e.Form.Controls("TreeView1").Nodes.Add(Parts(0),Parts(0))
        start = 1
    End If
    For i As Integer = Start To Parts.Length - 1
        nd = nd.Nodes.Add(Parts(i),Parts(i))
    Next
Next

[此贴子已经被作者于2010-3-24 1:00:34编辑过]

第一次传的有问题，已经重新传了

大家可能没有意识到，这个例子很有用，我顶一下。

以下是引用mr725在2010-3-24 23:10:00的发言：

加上这样两条也会报错:

其他应付款\老六
其他应付款\老六六

论坛屏蔽，下面的“分隔符”三字用"\"代替：

Dim nd As WinForm.TreeNode
Dim Names As List(Of String) = DataTables("表A").GetUniqueValues("类别 Is not Null", "类别")
For Each Name As String In Names
    Dim Path As String = Name
    Dim Parts() As String = Path.Split("-:special:1:-)
    Dim Start As Integer
    If nd IsNot Nothing Then
        Do
            If Path.StartsWith(nd.FullPath & "分隔符" ) Then
                Start = nd.Level + 1
                nd = nd.Nodes.Add(Parts(Start),Parts(start))
                Start = nd.Level + 1
                Exit do
            Else
                nd = nd.ParentNode
                If nd Is Nothing Then
                    Exit do
                End If
            End If
        Loop
    End If
    If nd Is Nothing Then
        nd = Forms("窗口1").Controls("TreeView1").Nodes.Add(Parts(0),Parts(0))
        start = 1
    End If
    For i As Integer = Start To Parts.Length - 1
        nd = nd.Nodes.Add(Parts(i),Parts(i))
    Next
Next

[此贴子已经被作者于2010-3-25 0:09:52编辑过]

主题：[求助]如何按列内容生成目录树？