- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 目录树-递归 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149886)
-- 发布时间：2020/5/14 15:36:00
-- 目录树-递归
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()以前代码是这样的，现在想加一个节点，就是”项目编号“
-- 发布时间：2020/5/14 15:37:00
--
麻烦老师帮我看看如何实现？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目23.zip |
-- 发布时间：2020/5/14 15:41:00
--
没看懂。上传的实例也没有窗口
-- 发布时间：2020/5/14 15:41:00
--
此主题相关图片如下：第二层节点.png
想实现 先来一个第一层节点，然后再来第二层节点，麻烦老师看看如何实现？
此主题相关图片如下：第一层节点.png
-- 发布时间：2020/5/14 15:55:00
--
第一层和第二层有什么关系？上传的实例没有窗口
-- 发布时间：2020/5/14 15:58:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目23.zip |
不好意思，刚才把文件放错了
[此贴子已经被作者于2020/5/14 15:58:59编辑过]
-- 发布时间：2020/5/14 16:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目23.zip |
-- 发布时间：2020/5/14 16:43:00
--
谢谢老师，太利害了。
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))！能帮我解释一下代码里的这个吗？
-- 发布时间：2020/5/14 16:46:00
--
GetValues用法看：http://www.foxtable.com/webhelp/topics/2747.htm
-- 发布时间：2020/5/14 16:52:00
--
NodeMouseDoubleClick应该如何改呢？
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