通过角色控制列编辑权限问题,代码如下,但不然如愿,请版主帮看看
If User.IsRole("监测采样") = True AndAlso User.IsRole("监测化验") = True AndAlso User.IsRole("监测审核") = True AndAlso User.IsRole("监测发布") = True Then
If e.Col.Name = "采样时间" AndAlso e.Col.Name = "采样地点" AndAlso e.Col.Name = "经度" AndAlso e.Col.Name = "纬度" AndAlso e.Col.Name = "检测项目" Then
If User.IsRole("监测采样") = False Then
e.Cancel = True
End If
End If
If e.Col.Name = "检测限值" AndAlso e.Col.Name = "检测结果" Then
If User.IsRole("监测化验") = False Then
e.Cancel = True
End If
End If
If e.Col.Name = "审核情况" Then
If User.IsRole("监测审核") = False Then
e.Cancel = True
End If
End If
If e.Col.Name = "发布情况" Then
If User.IsRole("监测发布") = False Then
e.Cancel = True
End If
End If
Else
e.Cancel = True
End If