以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127285)
--  作者：outcat
--  发布时间：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
--  发布时间：2018/11/10 8:12:00
--  
本来锁定行就无法作任何操作的，不需要设置什么代码的
--  作者：有点蓝
--  发布时间：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
--  发布时间：2018/11/10 13:45:00
--  
老师，成功了，谢谢