请教：是否能够用2个表来生成1个目录树？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：是否能够用2个表来生成1个目录树？

共有6169人关注过本帖树形打印复制链接主题：请教：是否能够用2个表来生成1个目录树？

gaoqr

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：353 积分：3058 威望：0 精华：0 注册：2008/9/1 6:39:00

Post By：2015/3/19 14:48:00 [只看该作者]

图1：比如清单表 010101001 平整场地项

图2 ：工作内容表有2项与它对应，其中第一项的代码列有 1、9 2个代码

以上是已完成部分

需要将图3 代码为 1、9 的名称列的相应内容，在图4的土方挖填下形成下1级目录

此主题相关图片如下：1.png

此主题相关图片如下：2.png

此主题相关图片如下：3.png

此主题相关图片如下：4.png

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/19 14:57:00 [只看该作者]

代码

'''
Dim dr As DataRow = e.Node.DataRow
Dim b As WinForm.TreeView = e.Form.Controls("TreeView2")
b.GenerateTree("工作内容","编号","工作内容", ".","编号 like '" & dr("项目编码") & "%'")

For Each node As Object In b.Nodes
    Dim cdr As DataRow = node.DataRow
    If cdr.IsNull("代码") = False
        For Each dm As String In cdr("代码").Split(new Char() {",", "、"})
            For Each r As DataRow In DataTables("定额库").Select("代码 = '" & dm & "'")
                node.nodes.Add(r("代码"), r("名称"))
            Next
        Next
    End If
Next

主意全角半角 http://www.foxtable.com/help/topics/1273.htm