- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 系统菜单授权 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=189952)
-- 发布时间：2024/1/7 18:05:00
-- 系统菜单授权
系统菜单授权不能根据设定生成
是哪里出错了，转换人时没有按授权生成菜单的
此主题相关图片如下：微信截图_20240107180216.png
此主题相关图片如下：微信截图_20240107180216.png-- 发布时间：2024/1/7 20:19:00
--
请上传实例说明
-- 发布时间：2024/1/8 9:01:00
--
系统菜单
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2024/1/8 9:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2024/1/8 10:48:00
--
不知哪里错了，我现在使用的是外面的数据库时不能
此主题相关图片如下：微信截图_20240108104704.png
-- 发布时间：2024/1/8 10:50:00
--
提示什么错误
-- 发布时间：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
-- 发布时间：2024/1/8 11:42:00
--
真是想不懂，调了成日，看不出上面的同你发有什么差异
此主题相关图片如下：微信截图_20240108113648.png
-- 发布时间：2024/1/8 11:58:00
--
把调试弹出的所有窗口按顺序截图发上来
[此贴子已经被作者于2024/1/8 11:58:31编辑过]