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