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

共有1580人关注过本帖树形打印复制链接主题：请教

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/12 15:48:00 [显示全部帖子]

AfterOpenProject事件

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/12 16:06:00 [显示全部帖子]

以下是引用nxqtxwz在2018/1/12 15:55:00的发言：

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

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/12 16:11:00 [显示全部帖子]

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

msgbox(user.name)

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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/12 16:44:00 [显示全部帖子]

建议写到表格的click事件

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

主题：请教