- 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=121177)
-- 发布时间：2018/6/30 15:02:00
-- 递归生成的目录树
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9.table |
您好！这个项目中，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