兄弟们,我按帮助做了一个目录树授权,但连接内部数据源没问题,用外部数据源就不行了!
此主题相关图片如下:qq图片20151012214428.png
授权窗口afterload代码:
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()
我把for***到next的代码换成trv2.buildtree("users","group|name"),目录树能正常操作,但我在topicbar控件写的topiclinkclick里写的代码:
Select Case e.Link.Text
Case "接单登记"
If Functions.Execute("ShouQuan","订单管理","批准订单") Then
Forms("首页").Open()
else
msgbox(“你没有权限操作”) '没有弹出来(就是不能按目录树授权打开窗口),请狐仙们帮助解决,谢谢,
End
If
***
Case "客户设备"
Forms("授权").Open()
MainTable = Tables("授权")
End Select
[此贴子已经被作者于2015/10/12 22:30:44编辑过]