以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]权限代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64811)

--  作者:qqq310
--  发布时间:2015/3/2 13:54:00
--  [求助]权限代码

求助帮助文件里的http://www.foxtable.com/help/topics/2405.htm 

如果是自定用户哪里的代码要改,我改了左侧代码会显示分组,右边的不显示用户, 整个要改哪些代码


--  作者:有点甜
--  发布时间:2015/3/2 14:21:00
--  

生成目录树的地方改一下

 

 

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权","分组|权限")
trv1.BuildTree("用户表","分组|用户名")
Trv1.Nodes(0).Expand()
trv2.ExpandAll()