目录树节点问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树节点问题

共有4614人关注过本帖树形打印复制链接主题：目录树节点问题

wlj88868

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：127 积分：942 威望：0 精华：0 注册：2016/4/27 9:39:00

Post By：2022/11/29 16:56:00 [只看该作者]

麻烦老师给调试一下，，

问题1，目录树的生成

问题2，登入分组名控制导航栏的按钮，，

问题3，登入上面的欢笑词，，user表没有加载，，上面的操作人后面的名字不见了

麻烦老师了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:2022-10-25开发.rar

此主题相关图片如下：1669712007790.png

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/11/29 17:10:00 [只看该作者]

没看懂，麻烦解释一下

1、根据什么数据生成目录树，最后的目录树需要什么效果

2、控制逻辑是什么？请举例说明一下，比如那个账户登录，根据什么设置，最后导航栏是什么效果？

3、完全没看懂

wlj88868

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：127 积分：942 威望：0 精华：0 注册：2016/4/27 9:39:00

Post By：2022/11/29 18:58:00 [只看该作者]

老师目录树设置好了，，，，就是授权表的数据不是要一个一个打进去吗，，，我的意思是把授权表的数据直接做一个生成按钮，，把表的数据更新一下，，按目录树要求的3级生成

导航栏要求是，，授权表这里不是设置了不可见，不可编辑码，，比如区域经理登入，勾选不可见的，导航栏的这个按钮就隐藏了，这样每一个用户登入用户根据授权表这里的这设定给予授权

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/11/29 20:50:00 [只看该作者]

生成授权表

Dim r As Row

For Each s As string In DataTables("users").GetValues("用户角色")

For Each dt As DataTable In DataTables

For Each dc As DataCol In dt.DataCols

r = Tables("授权").AddNew

r("分组名") = s

r("表名") = dt.Name

r("列名") = dc.Name

有点蓝

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/11/29 21:04:00 [只看该作者]

在导航窗口afterload，遍历所有导航栏然后到权限表查询有没有权限，如果没有就隐藏这个导航栏，比如

If DataTables("授权").Find("分组名='" & _UserGroup & "' and 导航按钮='tjgl' and 不可见=true") IsNot Nothing Then

e.Form.Controls("tjgl").Visible = False

End If

wlj88868

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：127 积分：942 威望：0 精华：0 注册：2016/4/27 9:39:00

Post By：2022/11/30 15:41:00 [只看该作者]

老师这里用usergroup可以了，，我要是改为用户角色，要什么改一下，谢谢
图片点击可在新窗口打开查看

此主题相关图片如下：1669791930456.png

有点蓝

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/11/30 15:42:00 [只看该作者]

和分组一样增加一个全局变量记录

wlj88868

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：127 积分：942 威望：0 精华：0 注册：2016/4/27 9:39:00

Post By：2022/11/30 16:40:00 [只看该作者]

Public _UserName As String
Public _UserGroup As String
Public _UserTable As DataTable
Public _user用户角色 As String

老师全局这里是这样写用户角色吗，，，

If DataTables("授权").Find("分组名='" & _user用户角色 & "' and 导航按钮='tjgl' and 不可见=true") IsNot Nothing Then
e.Form.Controls("TopicBar1").Pages("tjgl").Visible = False
End If

窗口事件这样写，，好像不起作用哦

有点蓝

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/11/30 16:45:00 [只看该作者]

登录后给角色变量赋值了吗

wlj88868

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：127 积分：942 威望：0 精华：0 注册：2016/4/27 9:39:00

Post By：2022/11/30 16:52:00 [只看该作者]

用_userGroup有用

用_user用户角色没有用

此主题相关图片如下：1669798142607.png

此主题相关图片如下：1669798174018.png

下一主题 >> << 上一主题

总数 25 上一页 1 2 3 下一页

主题：目录树节点问题