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

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

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

 如下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.foxdb

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

 如下

 

  

下载信息  [文件大小：348.0 KB  下载次数：0]

点击浏览该文件:管理项目7.foxdb

甜总 种子发错了 呵呵

 如下

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目7.foxdb