以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]用户组目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146914)

--  作者：天一生水 --  发布时间：2020/3/5 21:06:00 --  [求助]用户组目录树 老师好！ 我在目录树中显示当前工作组的成员，根目录为“组”，二级目录为“用户名”，用户表使用的是自定义用户管理，全局代码设置如下： Public _UserName As String \'用户名 Public _UserGroup As String \'用户分组 以前使用的是内置用户管理，代码如下，现在怎样改为自定义用户管理的相关代码？ For Each us As UserInfo In Users     \'本工作组     If us.Group = user.Group Then         If trv1.Nodes.Contains(us.Group) = False Then             trv1.Nodes.Add(us.Group)         End If         trv1.Nodes(us.Group).Nodes.Add(us.Name)     End If Next 谢谢！

--  作者：有点蓝 --  发布时间：2020/3/6 9:51:00 --   For Each s as string in datatables("用户").getvalues("组")     \'本工作组     dim n  = trv1.Nodes.Add(s) For Each u as string in datatables("用户").getvalues("用户名","组=‘" & s & "’")     n.Nodes.Add(u) Next Next

--  作者：天一生水 --  发布时间：2020/3/6 13:56:00 --   谢谢蓝老师！ 是不是UserInfo属性只在内置用户管理中有效？

--  作者：有点蓝 --  发布时间：2020/3/6 16:36:00 --   是的