主题：请帮助

一、下面的代码想改成判断当前行或表如果锁定则执行下面的代码，在Click 事件。

If user.IsRole("人事信息维护员") = False Then    改成： If e.DataRow.Locked  = True   Then        '为什么出错

    Select  Case e.Col.Name
        Case  "直接评优_理由"

            If Forms("考核评优").Opened = False Then Forms("考核评优").Open
            Forms("考核评优").Controls("TextBox1").text = e.Row(e.Col.Name)
        End  Select
    End If

二、角色不是校长隐藏审核列，为什么不执行呢？

If User.IsRole("校长")=False  Then
   Tables("考核评优").Cols.Remove("核定")
End  If