点击或拖拽改变大小

Functions.VoDbUnLockAll 方法

X#
释放所有工作区的所有锁定。

命名空间:  XSharp.RT
程序集:  XSharp.RT (在 XSharp.RT.dll 中) 版本:2.22 GA
语法
 FUNCTION VoDbUnLockAll() AS LOGIC
查看代码

返回值

类型:Boolean
如果成功则返回 TRUE;否则返回 FALSE。
备注
VODbUnLockAll() 与 DbUnLockAll() 相同。
然而,此函数不调用错误处理程序,因此如果失败,不会产生运行时错误消息或创建错误对象。因此,检查返回值以确定函数是否成功可能很重要。
全局结构 StrucErrInfo 将包含有关发生的任何错误的必要信息。有关更多信息,请参见 DbUnLockAll()。
示例
以下示例在 VODBRLock() 尝试成功时标记要删除的记录,然后清除所有工作区中的所有锁定:
X#
 1cLast := "Winston"
 2USE sales SHARED NEW VIA "DBFNTX"
 3VODBOrdListAdd("Salefnam", NIL)
 4VODBOrdListAdd("Salelnam", NIL)
 5USE colls SHARED NEW VIA "DBFNTX"
 6VODBOrdListAdd("Collfnam", NIL)
 7VODBOrdListAdd("Colllnam", NIL)
 8DBSelectArea("sales")        // 选择 "sales" 工作区
 9IF (colls->(VODBSeek(cLast)))
10    IF colls->(VODBDeleted())
11        ? "记录已删除: ", colls->;
12            (VODBDeleted())
13        IF colls->(VODBRLock(NIL))
14            colls->(VODBRecall())
15            ? "记录已恢复..."
16        ENDIF
17    ENDIF
18ELSE
19    ? "未找到"
20    VODbUnLockAll()        // 移除所有工作区中的
21ENDIF                            // 所有锁定
参见