主题：关联多表创建目录树

楼主，要养成好习惯，自己设计好三个表，输入一些测试数据。

否则想帮助你的人还得先设计这三个表，输入测试数据，而这些简单但是花时间的事情本该你做好的。

因为任何人写代码都不会一气呵成的，都需要调试的，通过才能发给你，这也是对你负责。

你自己做多点，才能得到更快更好的回复。

问题并不复杂，帮你准备这个文件的时间，远远比写代码的时间多：

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

点击浏览该文件:管理项目93.rar

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each dr1 As DataRow In DataTables("表A").DataRows
    Dim nd1 As WinForm.TreeNode = trv.nodes.Add(dr1("第二列"))
    For Each dr2 As DataRow In dr1.GetChildRows("表B")
        Dim nd2 As WinForm.TreeNode = nd1.nodes.add(dr2("第二列"))
        For Each dr3 As DataRow In dr2.GetChildRows("表C")
            nd2.nodes.add(dr3("第二列"))
        Next
    Next
Next