| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于用户组替换的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120750) |
| -- 作者：aza520 -- 发布时间：2018/6/22 18:43:00 -- 关于用户组替换的问题 我有代码1如下,今年可能还会增加“3建设办”，“4建设办”，请问老师，有没有什么办法像代码2一样，用“x建设办”代表所有的建设办，这样就不用每新增一个建设办，就要重新修改代码1？ 代码1： If e.Col.Name =
"业主审核" Then If User.Group <> "1建设办" And User.Group <> "2建设办" And User.Name <> "开发者" Then e.Cancel = True End If End If If e.Col.name
<> "业主审批" AndAlso e.Col.name <> "批复日期" AndAlso
e.Col.name <> "计量期数" AndAlso e.Col.name <> "业主审核" Then If e.Row("业主审核") = True Then e.Cancel = True End If End If 代码2： If e.Col.Name =
"业主审核" Then If User.Group <> "x建设办" And
User.Name <> "开发者" Then e.Cancel = True End If End If If e.Col.name
<> "业主审批" AndAlso e.Col.name <> "批复日期" AndAlso
e.Col.name <> "计量期数" AndAlso e.Col.name <> "业主审核" Then If e.Row("业主审核") = True Then e.Cancel = True End If
End If |
| -- 作者：有点蓝 -- 发布时间：2018/6/22 20:53:00 -- If e.Col.Name = "业主审核" Then If User.Group.Contains("建设办") = False And User.Name <> "开发者" Then e.Cancel = True End If End If |