以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]AddChildren 函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147306)

--  作者:liumiao123
--  发布时间:2020/3/13 16:38:00
--  [求助]AddChildren 函数
RT
我需要用到文档里的AddChildren做的递归树形·
但是我已经用了这段
Dim node As C1FlexGrid.Node = args(0)
Dim dt As DataTable = args(1)
Dim flex As C1FlexGrid.C1FlexGrid = args(2)
Dim level As Integer = args(3)
Dim drs As List(of DataRow)
drs = dt.Select("[父键] = \'" & node.Row("编号") & "\'")
level = level + 1
For Each dr As DataRow In drs
    node = flex.rows.insertnode(flex.Rows.count,level)
    node.Row("编号") = dr("键")
    Functions.Execute("AddChildren",node,dt,flex,level)
Next

---------------------------------------------------------------

文档里的这段就不能用了

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(
"AddChildren",cd,dt)

Next



--

请问老师有什么办法解决呢·


--  作者:有点蓝
--  发布时间:2020/3/13 16:56:00
--  
改为不同的函数名,各用各的