主题：目录树问题

看看这个就知道怎么做了：

 http://www.foxtable.com/help/topics/2689.htm

 
先生成目录树，接下来：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    if nd.level = 0 otelse nd.level = 1 then
        nd.text = nd.datarow("编号") & nd.Datarow("项目名称")
    end if
Next

foxtable为你考虑得很多，甚至统计数据都可以：
http://www.foxtable.com/help/topics/2741.htm