- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助老师递归函数输入问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136359)
-- 发布时间：2019/6/12 6:21:00
-- 求助老师递归函数输入问题
想用帮助中的 递归函数使用实例 建立目录树 实现帮助中 编写通用的下拉目录树 中那样的使用效果
求助老师编码该如何写
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2012.rar |
-- 发布时间：2019/6/12 8:49:00
--
AddChildren函数
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("科项目名称"))
cd.Tag = dr("_Identify")
Functions.Execute("AddChildren",cd,dt)
Next
-- 发布时间：2019/6/12 12:37:00
--
问题解决，谢谢老师