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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于按钮授权

共有2916人关注过本帖树形打印复制链接主题：[求助]关于按钮授权

fred

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

加好友

发短信

等级：幼狐帖子：135 积分：1088 威望：0 精华：0 注册：2015/3/16 16:42:00

[求助]关于按钮授权 发帖心情

Post By：2015/8/11 12:04:00 [只看该作者]

有一个表叫“按钮授权”

表中有两个字段：按钮名，用户名

按钮名有如下：员工信息，外销合同，采购合同

用户名：取值表来自员工表，取值字段和显示字段都是用户名，可同时取多个。

目的：对于一个按钮，用户名里有的人才可以看到这个按钮。

是不是在表事件AfterLoad里写代码？怎么写？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/11 12:21:00 [只看该作者]

For Each c As WinForm.Control In e.Form.Controls
    If typeof c Is winform.button Then
        If DataTables("表A").find("第一列 = '' and (',' & 第二列 & ',') like '" & user.name & "'") IsNot Nothing Then
            c.Enabled = True
        Else
            c.Enabled = False
        End If
    End If
Next

fred

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

加好友

发短信

等级：幼狐帖子：135 积分：1088 威望：0 精华：0 注册：2015/3/16 16:42:00

Post By：2015/8/11 15:39:00 [只看该作者]

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.11.11.1

错误所在事件：表，ButtonRight，PrepareEdit

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。

有点蓝

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

加好友

发短信

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

Post By：2015/8/11 15:50:00 [只看该作者]

If typeof c Is winform.button Then 下

加个 Dim b as WinForm.Button = c

把下面的c都改为b

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/11 15:52:00 [只看该作者]

不要写到 PrepareEdit 事件，2楼的代码是写到afterLoad事件的啊。

贴出你 PrepareEdit 事件的代码。

fred

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

加好友

发短信

等级：幼狐帖子：135 积分：1088 威望：0 精华：0 注册：2015/3/16 16:42:00

Post By：2015/8/11 15:58:00 [只看该作者]

.NET Framework 版本：2.0.50727.5477

Foxtable 版本：2014.11.11.1

错误所在事件：窗口,MainPage,AfterLoad

详细错误信息：

表达式包含不支持的运算符“&”。

不过，效果是达到了。只是提示上面这个错误。

fred

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

加好友

发短信

等级：幼狐帖子：135 积分：1088 威望：0 精华：0 注册：2015/3/16 16:42:00

Post By：2015/8/11 16:15:00 [只看该作者]

我是把上面代码放在主窗口（就是登录后第一个出现的窗口）的AfterLoad里了

请问这个报错是那个&出问题了呢？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/11 16:51:00 [只看该作者]

红色地方改一下

For Each c As WinForm.Control In e.Form.Controls
    If typeof c Is winform.button Then
        If DataTables("表A").find("第一列 = '' and (',' + 第二列 + ',') like '" & user.name & "'") IsNot Nothing Then
            c.Enabled = True
        Else
            c.Enabled = False
        End If
    End If
Next