以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 递归生成的目录树 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121177) |
||||
-- 作者:susu312 -- 发布时间:2018/6/30 15:02:00 -- 递归生成的目录树
您好!这个项目中,organlist是临时表,窗口1是目录树窗口,窗口二是调用目录树窗口的
问题: 1、是借助递归方法生成的目录树,生成有误 2、生成后,如何在窗口二中成功调用,并且,点击一个单位后,就能显示到框中 |
||||
-- 作者:有点蓝 -- 发布时间:2018/6/30 15:28:00 -- DropDownOpening事件 Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nd As WinForm.TreeNode Dim dt As DataTable = DataTables("OrganList1") tr.StopRedraw() tr.Nodes.Clear \'tr.Nodes.Add("全部") For Each dr As DataRow In dt.Select("superId is null") nd = tr.Nodes.Add(dr("ogranId"),dr("organName")) Functions.Execute("AddChildren",nd,dt) Next tr.ResumeRedraw() 树NodeMouseClick e.Form.DropDownBox.Value = e.Node.Text |