主题：通过角色控制列编辑权限问题

方法一：DataColChanging事件

Select Case e.DataCol.Name
    Case "采样时间","采样地点","经度","纬度","检测项目"
        If User.Roles <> "监测采样" Then
            msgbox("你不是监测采样人员,没有编辑权限!" )
            e.Cancel = True
            Return
        End If
    Case "检测限值","检测结果"
        If User.Roles <> "监测化验" Then
            msgbox("你不是监测化验人员,没有编辑权限!" )
            e.Cancel = True
            Return
        End If
End Select

方法二：PrepareEdit事件：

Select Case e.Col.Name
    Case "采样时间","采样地点","经度","纬度","检测项目"
        If User.Roles <> "监测采样" Then
            'msgbox("你不是监测采样人员,没有编辑权限!" )
            e.Cancel = True
            Return
        End If
    Case "检测限值","检测结果"
        If User.Roles <> "监测化验" Then
            'msgbox("你不是监测化验人员,没有编辑权限!" )
            e.Cancel = True
            Return
        End If
End Select

看是不是你要的效果：