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