我有代码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
加好友 
发短信
Post By：2018/6/22 18:43:00 [显示全部帖子]
