- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]这样的代码该如何写？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65451)
-- 发布时间：2015/3/16 17:09:00
-- [求助]这样的代码该如何写？
请问在点击不同的标签的时候，限制用户访问，该如何写代码？如图，谢谢！
此主题相关图片如下：qq截图20150316171215.png
-- 发布时间：2015/3/16 17:12:00
--
用SelectedIndexChanging 事件
判断用户 执行e.cancel=true 即可取消选择
-- 发布时间：2015/3/16 17:19:00
--
能否再详细一点呢？比如，只有“张三”允许访问“成品库存查询表”
-- 发布时间：2015/3/16 17:21:00
--
比如 成品库存的 Index是 3
if e.newIndex =3 andalso user.name <>"张三" then
e.cancel=true
end if
-- 发布时间：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
-- 发布时间：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