主题：请帮助

一、下面的代码想改成判断当前行或表如果锁定则执行下面的代码，在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

再把这个帮助看10遍：http://www.foxtable.com/webhelp/topics/0604.htm，再看看：http://www.foxtable.com/webhelp/topics/1591.htm

老师你好，谢谢指导。我也在努力的学习呢，基础太差了，慢慢来吧。

下在的代码我是想让它遇到表中的锁定行就打开窗口，但代码好象是不执行呀，请老师给看看。

 

If e.Row.Locked  = True  Then
'If user.IsRole("人事信息维护员") = False 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

 

代码没有问题，要点击"直接评优_理由”这个列才能弹出窗口。什么类型的窗口？并列，停靠，模式？

是独立窗口，用原来的判断是可以的，判断锁定行为什么不行呢。

确定这一行是锁定的？通过什么方式锁定的？

老师，显示的是 false。

用下面的代码锁定的。

 

If e.Col.name <> "核定"  AndAlso e.Row("核定") = True Then
        e.cancel = True
    End If

在prepareedit写代码控制的只是不能编辑，并不是锁定这一行，这是2个不同的概念。