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
加好友 
发短信
Post By：2018/6/30 15:28:00 [显示全部帖子]
