Dim trv1 As WinForm.TreeView =
e.Form.Controls("TreeView1") Dim trv2
As WinForm.TreeView =
e.Form.Controls("TreeView2") trv1.BuildTree("授权","分组|权限") For
Each u As UserInfo In Users
If u.Type = UserTypeEnum.User Then
If trv2.Nodes.Contains(u.Group) = False
Then
trv2.Nodes.Add(u.Group)
End
If trv2.Nodes(u.Group).Nodes.Add(u.Name) End
If Next Trv1.Nodes(0).Expand() trv2.ExpandAll()里要先搜索出组,再排序,再添加到目录树中?需要怎么改?找不到相关帮助 此主题相关图片如下:qq截图20180827100302.jpg