以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  系统菜单授权  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189952)

--  作者:zhuxinhui
--  发布时间:2024/1/7 18:05:00
--  系统菜单授权
系统菜单授权不能根据设定生成
是哪里出错了,转换人时没有按授权生成菜单的
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20240107180216.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/1/7 20:19:00
--  
请上传实例说明
--  作者:zhuxinhui
--  发布时间:2024/1/8 9:01:00
--  
系统菜单
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:有点蓝
--  发布时间:2024/1/8 9:14:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


--  作者:zhuxinhui
--  发布时间:2024/1/8 10:48:00
--  
不知哪里错了,我现在使用的是外面的数据库时不能
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20240108104704.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/1/8 10:50:00
--  
提示什么错误
--  作者:zhuxinhui
--  发布时间:2024/1/8 11:01:00
--  
什么都没有提示,就是系统的菜单全部显示不出来
--  作者:有点蓝
--  发布时间:2024/1/8 11:12:00
--  
调试

DataTables("授权").LoadFilter = "分组 = \'系统菜单\'and 姓名=\'" & User.Name & "\' "
DataTables("授权").LoadTop = Nothing
DataTables("授权").Load()
msgbox(DataTables("授权").DataRows.count)

For Each fdr As DataRow In DataTables("授权").DataRows
msgbox(fdr ("功能区") & "," & fdr ("能见"))
    RibbonTabs(fdr ("功能区")).Visible = (fdr ("能见") = "可见")
msgbox(RibbonTabs(fdr ("功能区")).Visible)
Next

--  作者:zhuxinhui
--  发布时间:2024/1/8 11:42:00
--  
真是想不懂,调了成日,看不出上面的同你发有什么差异
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20240108113648.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/1/8 11:58:00
--  
把调试弹出的所有窗口按顺序截图发上来
[此贴子已经被作者于2024/1/8 11:58:31编辑过]