Foxtable(狐表)用户栏目专家坐堂 → [求助]AddChildren 函数


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

主题:[求助]AddChildren 函数

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


加好友 发短信
等级:小狐 帖子:327 积分:2511 威望:0 精华:0 注册:2018/3/15 7:39:00
[求助]AddChildren 函数  发帖心情 Post By:2020/3/13 16:38:00 [只看该作者]

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



--

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


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


加好友 发短信
等级:超级版主 帖子:110784 积分:563852 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/13 16:56:00 [只看该作者]

改为不同的函数名,各用各的

 回到顶部