主题：[求助]这个目录树怎么实现？

看看这个：

http://help.foxtable.com/topics/1969.htm

不改也行，只需将层次列改为整数型，看这个例子：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目14.table

不过我还是建议你按照帮助来，因为对普通用户来说，下面的代码有点复杂，且严格要求数据输入规范：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nod As WinForm.TreeNode
Dim dr As DataRow
Dim drs As List(of DataRow) = DataTables("表A").Select("部门名称 Is Not Null","部门名称")
For i As Integer = 0  To drs.Count - 1
    dr = drs(i)
    If dr("层次") = 0 Then
        nod = trv.Nodes.Add(dr("部门名称"))
    Else
        Do
            If nod.Level = dr("层次")
                nod = nod.ParentNode.Nodes.Add(dr("部门名称"))
                Exit Do
            ElseIf nod.Level = dr("层次") - 1
                nod = nod.Nodes.Add(dr("部门名称"))
                Exit Do
            Else
               nod = nod.ParentNode
            End If
        Loop
    End If
Next

http://help.foxtable.com/topics/0907.htm

呵呵，每次增加的节点都保存在变量nod中。
增加之前，比对上一个节点(变量nod)的层级和本行的层级，找出本行的父节点，然后再添加。

呵呵，可不要灰心哦，因为不懂才是正常的，如果一下子能看懂，说明你已经是专业程序员水平了。

FoxTable开发的目的，就是让大家少接触甚至无需接触这种代码。