主题：动态加载后目录树设计

afterLoad事件

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("organList")
tr.StopRedraw()''停止绘制目录树
tr.Nodes.Clear
'tr.Nodes.Add("全部")
For Each dr As DataRow In dt.datarows
    If dr("organName") = _User单位变量 Then
        nd = tr.Nodes.Add(dr("organName"),dr("organName"))
        Functions.Execute("AddChildren",nd,dt)
    End If
Next
tr.ResumeRedraw() ''恢复绘制目录树