Functions.VoDbUnLockAll 方法 |
命名空间: XSharp.RT
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 // 所有锁定