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图片20180510162625.png
[此贴子已经被作者于2018/5/10 16:27:14编辑过]