[求助]求帮助普通Tree节点增加递归节点…… - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

小弟有一问题，请帮忙，是否可以根据父子关系在目前的tree中，当展开第三层节点的时候自动加载递归节点进去好方便筛选？

小弟做了个例子先谢谢！

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

以下是引用Bin在2014-10-8 14:05:00的发言：
看不懂你的意思,你是指.点开第三层再加载第三层里面的节点?

BIN总，是点开第三层后再把递归出来的内容附加进目录树

就是把递归目录树嫁接到普通的目录树的最后一层（目前是第三层上），当展开的时候嫁接上去

以下是引用有点甜在2014-10-8 14:07:00的发言：

没看懂你的意思，递归，请参考

http://www.foxtable.com/help/topics/2416.htm

两个目录树结合在一起不会搞呢……

以下是引用有点甜在2014-10-8 14:18:00的发言：

那你的逻辑是什么啊，根据什么生成目录树，根据点击的哪个节点，还是生成全部？

附件例子里有普通树已经生成了，需要 e.Node.Level = 2 的时候把递归树加进去

递归要求就是表中的父，子编号列关系

以下是引用lsy在2014-10-8 14:22:00的发言：

那个父子关系，起什么作用？没这个关系，会影响目录树生成吗？

这个父子关系，又根据什么确定的？

我在节点展开前的事件里这样写不对呢

If e.Node.Level = 2 Then
    Dim Value() As String
    Value = e.Node.FullName.Split("\")
    Dim cmd As new SQLCommand
    cmd.CommandText = "select * from {表A} where 状态 = '" & Value(0) & "' and 订单编号 = '" & Value(1) & "' And 自定义编号 = '" & Value(2) & "'"
    Dim dt As DataTable = cmd.ExecuteReader
    For Each dr As DataRow In dt.DataRows
        Dim cd As Winform.TreeNode = e.Node.Nodes.Add(dr("子"),dr("名称"))
        Functions.Execute("AddChildrenTree",cd,dt)
    Next
End If

AddChildrenTree:

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs = dt.Select("[父] = '" & nd.name & "'")
For Each dr As DataRow In drs
Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("子"),dr("名称"))
Functions.Execute("AddChildrenTree",cd,dt)
Next

[此贴子已经被作者于2014-10-8 14:46:03编辑过]

以下是引用有点甜在2014-10-8 14:38:00的发言：

如下

下载信息 [文件大小：348.0 KB 下载次数：0]
点击浏览该文件:管理项目7.foxdb

甜总种子发错了呵呵

主题：[求助]求帮助普通Tree节点增加递归节点……