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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码求助

共有2228人关注过本帖树形打印复制链接主题：代码求助

outcat

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

加好友

发短信

等级：一尾狐帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00

代码求助

Post By：2018/11/10 2:22:00 [只看该作者]

If Tables("客户订砖总表").Current IsNot Nothing Then
    For Each dr As DataRow In DataTables("客户订砖总表").DataRows
        If dr.Locked = True Then
            msgbox("不能修改")
            Return
        Else
            Forms("编辑客户订砖").open
        End If
    Next
End If

老师，给我看一下这个代码怎么出问题，我想表的锁定行，不能打开编辑功能，反之打开编辑窗口，可是一直循环不来了，遇到了没有锁定行，还是提示“不能修改”

y2287958

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

加好友

发短信

等级：狐神帖子：4759 积分：34603 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/11/10 8:12:00 [只看该作者]

本来锁定行就无法作任何操作的，不需要设置什么代码的

有点蓝

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

加好友

发短信

等级：超级版主帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/10 8:54:00 [只看该作者]

代码写在哪个事件的？

If Tables("客户订砖总表").Current IsNot Nothing Then
        If Tables("客户订砖总表").Current.Locked = True Then
            msgbox("不能修改")
            Return
        Else
            Forms("编辑客户订砖").open
        End If
End If

outcat

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

加好友

发短信

等级：一尾狐帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00

Post By：2018/11/10 13:45:00 [只看该作者]

老师，成功了，谢谢

下一主题 >> << 上一主题

主题：代码求助