通过角色控制列编辑权限问题，代码如下,但不然如愿，请版主帮看看
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
加好友 
发短信
Post By：2022/2/11 11:07:00 [只看该作者]
