主题：请教

老师，我在PrepareEdit事件中写了这样的代码，想在打开表时解锁所有的行，但为什么不执行呢，打开表后，每条记录依然是锁定的状态。

 

If user.name = "校长" Or user.name="开发者" Then
    Tables("出差记录").AllowEdit = True
End If

AfterOpenProject事件

 

For Each r As Row In Tables("表A").rows
    r.Locked = False
Next

这样不是以谁登录都可以解锁了吗？

 

你再加上user.name的条件，不就好了？

老师，我加上了怎么不起作用呀。不知是哪里有问题，这是我的代码：

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    BaseMainForm.controls("C1Ribbon1").visible = False    '关闭系统窗口
    Tables("出差记录").Sort = "[_Identify] desc"
    If user.name = "校长" Or user.name="开发者" Then
        For Each r As Row In Tables("出差记录").rows
            r.Locked = False
        Next
    End If
End If

打开命令窗口执行下面代码有没问题？

 

    msgbox(user.name)

    If user.name = "校长" Or user.name="开发者" Then
        For Each r As Row In Tables("出差记录").rows
            r.Locked = False
        Next
    End If

在窗口运行，以谁登录都可以解锁。

老师，找到了问题，程序没问题。是因为以开发者登录就将记录全部解锁了，所以后面以谁登录都是解锁状态。应该在退出时再锁定，这样就解决了。谢谢老师指导。

老师，我要是解锁选中的当前行，这样写行吗？

在PrepareEdit 事件中：

If user.name = "校长" Or user.name="开发者" Then
    Dim r As Row = Tables("出差记录").Current
    r.Locked = False
End If

建议写到表格的click事件

 

If user.name = "校长" Or user.name="开发者" Then
    Dim r As Row = e.row
    r.Locked = False
End If