[浏览完整版]
标题：系统菜单授权
1楼
zhuxinhui 发表于：2024/1/7 18:05:00系统菜单授权不能根据设定生成
是哪里出错了，转换人时没有按授权生成菜单的
此主题相关图片如下：微信截图_20240107180216.png
此主题相关图片如下：微信截图_20240107180216.png2楼
有点蓝 发表于：2024/1/7 20:19:00请上传实例说明
3楼
zhuxinhui 发表于：2024/1/8 9:01:00系统菜单
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
4楼
有点蓝 发表于：2024/1/8 9:14:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
5楼
zhuxinhui 发表于：2024/1/8 10:48:00不知哪里错了，我现在使用的是外面的数据库时不能
此主题相关图片如下：微信截图_20240108104704.png
此主题相关图片如下：微信截图_20240108104704.png6楼
有点蓝 发表于：2024/1/8 10:50:00提示什么错误
7楼
zhuxinhui 发表于：2024/1/8 11:01:00什么都没有提示，就是系统的菜单全部显示不出来
8楼
有点蓝 发表于：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
9楼
zhuxinhui 发表于：2024/1/8 11:42:00真是想不懂，调了成日，看不出上面的同你发有什么差异
此主题相关图片如下：微信截图_20240108113648.png
此主题相关图片如下：微信截图_20240108113648.png10楼
有点蓝 发表于：2024/1/8 11:58:00把调试弹出的所有窗口按顺序截图发上来
[此贴子已经被作者于2024/1/8 11:58:31编辑过]