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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]还是权限问题

共有2958人关注过本帖树形打印复制链接主题：[求助]还是权限问题

viking

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

加好友

发短信

等级：小狐帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00

[求助]还是权限问题 发帖心情

Post By：2014/4/4 17:44:00 [只看该作者]

窗口1，button1，button2

表A

关联表：表A.表B

当登陆用户不是表A的“业务负责”时，button1，button2不能使用，这个怎么写？

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/4 17:46:00 [只看该作者]

窗口AlterLoad

if user.name <> "业务负责" then

e.form.controls("button1").Enabled=False

e.form.controls("button2").Enabled=False

end if

viking

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

加好友

发短信

等级：小狐帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00

Post By：2014/4/4 18:27:00 [只看该作者]

以下是引用Bin在2014-4-4 17:46:00的发言：
窗口AlterLoad

if user.name <> " 14px="14px" FONT: 14px?=" div=" div?>

e.form.controls("button1").Enabled=False

e.form.controls("button2").Enabled=False

end if

大侠我想写在这个

CurrentChanged

DataColChanged

这个里面。谢谢！

上边这个切换数据就失效了

[此贴子已经被作者于2014-4-4 18:37:46编辑过]

viking

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

加好友

发短信

等级：小狐帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00

Post By：2014/4/5 9:26:00 [只看该作者]

顶下，大侠怎么走了啊

viking

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

加好友

发短信

等级：小狐帖子：371 积分：3120 威望：0 精华：0 注册：2013/7/13 15:49:00

Post By：2014/4/7 12:35:00 [只看该作者]

都放假了

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/7 13:56:00 [只看该作者]

是不是这样？CurrentChanged

If Forms("xxx").Opened Then
    If user.Name = e.Table.Current("业务负责") Then
        Forms("xxx").Controls("button1").Enabled = True
        Forms("xxx").Controls("button2").Enabled = True
    Else
        Forms("xxx").Controls("button1").Enabled = False
        Forms("xxx").Controls("button1").Enabled = False
    End If
End If