[求助]授权代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]授权代码

共有2445人关注过本帖树形打印复制链接主题：[求助]授权代码

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/26 15:11:00 [显示全部帖子]

提示很明细。你的窗口上，没有对应的控件。弹出信息看看。

msgbox(e.form.name & " " & dr("按钮名"))

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/26 16:05:00 [显示全部帖子]

1、你看懂4楼的代码了吗？知道那是做什么的吗？

2、你用开发者登陆还是普通用户登录？

3、加入msgbox看是否触发了代码。

[此贴子已经被作者于2017/6/26 16:05:47编辑过]

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/26 17:55:00 [显示全部帖子]

你现在的问题是什么？

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User ) '如果是开发者、管理者，就显示授权表，否则不显示

If User.Type = UserTypeEnum.User Then '如果用户是普通用户

msgbox(user.name)

For Each dr As DataRow In DataTables("授权表").Select("分组名 = '" & User.Name & "'" ) '根据用户名查找信息

If dr("窗口名") = 0 Then

msgbox(dr("窗口名"))

Forms(dr("窗口名")).Show()

Else

Forms(dr("窗口名")).Close()

End If

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/26 18:53:00 [显示全部帖子]

以下是引用苏州老街在2017/6/26 18:04:00的发言：
老师，我是摆在项目事件中的，没有用。

没看懂你想问什么。7楼已经给你注释了，好好看看。

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/6/27 8:19:00 [显示全部帖子]

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User ) '如果是开发者?管理者,就显示授权表,否则不显示
If User.Type = UserTypeEnum.User Then '如果用户是普通用户
    msgbox(user.name)
    For Each dr As DataRow In DataTables("授权表").Select("分组名 = '" & User.Name & "'" ) '根据用户名查找信息
        msgbox(dr("窗口名"))
        If Forms.Contains(dr("窗口名")) Then

forms(dr("窗口名")).Show

End If

Next
End If