Dim tr As WinForm.TreeView = e.Form.Controls("TreeView3")
Dim nd As WinForm.TreeNode '目录树节点
Dim dt As DataTable = DataTables("设计BOM表")
tr.StopRedraw() '停止绘制目录树 ResumeRedraw 恢复绘制目录树
tr.Nodes.Clear '清除所有节点
tr.Nodes.Add("全部")'增加一个节点
For Each dr As DataRow In dt.Select("父级 is null") '数据行的集合
nd = tr.Nodes.Add(dr("序号"),dr("图名")) '新增目录树节点
Functions.Execute("AddChildren1",nd,dt) '增加自定义函数,名为AddChildren
Next
tr.ResumeRedraw() '重新绘制目录树
另外不建议一次生成过多的节点，上万几千的节点，很难相信有哪个用户有这个闲情一个个去翻。
节点比较多的情况下,可以考虑在BeforeExpandNode事件做节点动态加载
加好友 
发短信
Post By：2019/8/6 9:11:00 [显示全部帖子]
