Foxtable(狐表)用户栏目专家坐堂 → 目录树-递归


  共有295人关注过本帖树形打印复制链接

主题:目录树-递归

帅哥哟,离线,有人找我吗?
lugz82919293
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:70 积分:459 威望:0 精华:0 注册:2020/3/6 9:06:00
目录树-递归  发帖心情 Post By: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()以前代码是这样的,现在想加一个节点,就是”项目编号“

 回到顶部
帅哥哟,离线,有人找我吗?
lugz82919293
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:70 积分:459 威望:0 精华:0 注册:2020/3/6 9:06:00
  发帖心情 Post By:2020/5/14 15:37:00 [只看该作者]

麻烦老师帮我看看如何实现?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目23.zip


 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:50528 积分:256124 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/14 15:41:00 [只看该作者]

没看懂。上传的实例也没有窗口

 回到顶部
帅哥哟,离线,有人找我吗?
lugz82919293
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:70 积分:459 威望:0 精华:0 注册:2020/3/6 9:06:00
  发帖心情 Post By:2020/5/14 15:41:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:第二层节点.png
图片点击可在新窗口打开查看
想实现 先来一个第一层节点,然后再来第二层节点,麻烦老师看看如何实现?
图片点击可在新窗口打开查看此主题相关图片如下:第一层节点.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:50528 积分:256124 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/14 15:55:00 [只看该作者]

第一层和第二层有什么关系?上传的实例没有窗口

 回到顶部
帅哥哟,离线,有人找我吗?
lugz82919293
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:70 积分:459 威望:0 精华:0 注册:2020/3/6 9:06:00
  发帖心情 Post By:2020/5/14 15:58:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目23.zip

不好意思,刚才把文件放错了
[此贴子已经被作者于2020/5/14 15:58:59编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:50528 积分:256124 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/14 16:28:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目23.zip


 回到顶部
帅哥哟,离线,有人找我吗?
lugz82919293
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:70 积分:459 威望:0 精华:0 注册:2020/3/6 9:06:00
  发帖心情 Post By: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))!能帮我解释一下代码里的这个吗?

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:50528 积分:256124 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/14 16:46:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lugz82919293
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:70 积分:459 威望:0 精华:0 注册:2020/3/6 9:06:00
  发帖心情 Post By:2020/5/14 16:52:00 [只看该作者]

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


 回到顶部
总数 28 1 2 3 下一页