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