请帮助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

以下是引用有点蓝在2019/12/27 8:39:00的发言：
再把这个帮助看10遍：http://www.foxtable.com/webhelp/topics/0604.htm，再看看：http://www.foxtable.com/webhelp/topics/1591.htm

If e.Row.Locked = True Then

汽车和单车都有个车字，但是并不是汽车有方向盘，单车也就有方向盘。不同事件的e参数是不一样的，click事件e参数没有DataRow，但是有Row。不要以为一个事件有e.DataRow，然后所有的事件都有e.DataRow。每个事件都有什么参数，请查看帮助再使用。

隐藏审核列的代码放在什么地方？

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

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

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

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

以下是引用有点蓝在2019/12/27 14:19:00的发言：
确定这一行是锁定的？通过什么方式锁定的？

msgbox(e.Row.Locked ) ‘这里弹出什么？

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

[此贴子已经被作者于2019/12/29 14:46:58编辑过]

主题：请帮助