目录树-递归 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim rts() As String = {"全部","第100章","第200章","第300章","第400章","第500章","第600章","第700章"}
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("工程量清单")
tr.StopRedraw()
tr.Nodes.Clear
For Each rt As String In rts
    tr.Nodes.Add(rt)
Next
For Each dr As DataRow In dt.Select("","子目号")
    If dr.IsNull("子目号") = False AndAlso dr("子目号").Length = 3   Then
        Dim i As Integer = CInt(dr("子目号").Substring(0,1))
        nd = tr.Nodes(i).Nodes.Add(dr("子目号"),dr("子目号") & " " & dr("子目名称"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw()以前代码是这样的，现在想加一个节点，就是”项目编号“

麻烦老师帮我看看如何实现？

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

此主题相关图片如下：第二层节点.png

想实现先来一个第一层节点，然后再来第二层节点，麻烦老师看看如何实现？
图片点击可在新窗口打开查看

此主题相关图片如下：第一层节点.png

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

不好意思，刚才把文件放错了

[此贴子已经被作者于2020/5/14 15:58:59编辑过]

谢谢老师，太利害了。

For Each s As String In DataTables("工程量清单").GetValues("项目编号")

    Dim dn As WinForm.TreeNode = tr.Nodes.Add(s,s)
    For k As Integer = 0 To rts.length - 1
        Dim dn2 As WinForm.TreeNode = dn.Nodes.Add(rts(k))！能帮我解释一下代码里的这个吗？

NodeMouseDoubleClick应该如何改呢？

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If e.Node.Level = 0
    If e.Node.Name = "全部" Then
        Tables("工程量清单").Filter = ""
    Else
        Tables("工程量清单").Filter = "子目号 Like '" & e.Node.Index & "%'"
    End If
Else
    Tables("工程量清单").Filter = "子目号 Like '" & e.Node.Name & "%'"
End If

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

老师，昨天我按您写的代码转到我的正式文件中，但是出现重复的结果，请老师帮我看看
图片点击可在新窗口打开查看

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

End If

增加什么条件呢？项目编号如何提取？

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

谢谢老师，老师，昨天我按您写的代码转到我的正式文件中，但是出
dvubb

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

现重复的结果，请老师帮我看看。

谢谢老师，老师，昨天我按您写的代码转到我的正式文件中，但是出现重复的结果，请老师帮我看看。

主题：目录树-递归