以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 目录树添加节点疑问 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140110) |
-- 作者:ljh29206 -- 发布时间:2019/8/29 15:51:00 -- 目录树添加节点疑问 请看图片 这个是原有的内容 Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") For Each nd As WinForm.TreeNode In trv.AllNodes Dim drs As List(of DataRow) drs = DataTables(e.form.Name & "_Table1").Select("部门 = \'" & nd.Text & "\'") If drs.Count > 0 Then For Each dr As DataRow In drs nd.Nodes.Add(dr("姓名")) Next End If Next 用循环的方式 向人员表 获取部门信息 然后添加到目录树, 发现 层级有点问题 先添加的 走到最低部去了 , 不知道原因在哪,帮忙看看
|
-- 作者:有点蓝 -- 发布时间:2019/8/29 16:25:00 -- 这种要使用递归的方式添加:http://www.foxtable.com/webhelp/topics/2416.htm |