Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nd As WinForm.TreeNode Dim dt As DataTable = DataTables("表A") tr.StopRedraw() tr.Nodes.Clear tr.Nodes.Add("全部") Dim filter As String = "标题 = 'a'" For Each dr As DataRow In dt.Select(filter) nd = tr.Nodes.Add(dr("键"),dr("标题")) Functions.Execute("AddChildren",nd,dt) Next tr.ResumeRedraw()
加好友 
发短信
Post By：2016/6/28 10:22:00 [显示全部帖子]
