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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这样的代码该如何写？

共有3418人关注过本帖树形打印复制链接主题：[求助]这样的代码该如何写？

rophy0952

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

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

[求助]这样的代码该如何写？ 发帖心情

Post By：2015/3/16 17:09:00 [只看该作者]

请问在点击不同的标签的时候，限制用户访问，该如何写代码？如图，谢谢！
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20150316171215.png

Bin

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

加好友

发短信

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

Post By：2015/3/16 17:12:00 [只看该作者]

用SelectedIndexChanging 事件

判断用户执行e.cancel=true 即可取消选择

rophy0952

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

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2015/3/16 17:19:00 [只看该作者]

能否再详细一点呢？比如，只有“张三”允许访问“成品库存查询表”

Bin

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

加好友

发短信

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

Post By：2015/3/16 17:21:00 [只看该作者]

比如成品库存的 Index是 3

if e.newIndex =3 andalso user.name <>"张三" then

e.cancel=true

end if

rophy0952

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

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

Post By：2015/3/16 18:00:00 [只看该作者]

例如：我有4个页面，第一个页面和第三个页面希望张三、李四、王五可以打开；第四个页面希望周六，孙七可以打开，按照如下编辑，但是出现张三、李四、王五所有页面都可以打开，而周六和孙七呢只打开第一个和第三个页面。

If e.newIndex = 1 AndAlso _username <> "张三" AndAlso _username <> "李四" AndAlso _username <> "王五" Then

e.cancel = True

End If

If e.newIndex = 3 AndAlso _username <> "张三" AndAlso _username <> "李四" AndAlso _username <> "王五" Then

e.cancel = True

End If

If e.newIndex = 4 AndAlso _username <> "周六" AndAlso _username <> "孙七" Then

e.cancel = True

End If

有点甜

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

加好友

发短信

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

Post By：2015/3/16 18:09:00 [只看该作者]

比如

Select case _UserName

Case "张三", "李四", "王五"

if e.NewIndex <> 1 AndAlso e.newIndex <> 3 then e.Cancel = True

Case "周六", "孙七"

if e.NewIndex <> 4 then e.Cancel = True

Case Else

e.Cancel = True

End Select

下一主题 >> << 上一主题

主题：[求助]这样的代码该如何写？