Functions.VoDbRecall 方法 |
命名空间: XSharp.RT
1LOCAL rddList AS _RDDLIST 2... 3aRdds := {"CAVODBF", "DBFNTX"} 4n := ALen(aRdds) 5rddList := MemAlloc( (_SizeOf(DWORD)) + (n * _SizeOf(SYMBOL)) ) 6rddList.uiRddCount := n 7FOR i := 1 TO n 8 rddList.atomRddName[i] := SysAddAtomUpperA(aRdds[i]) 9NEXT 10cLast := "Winston" 11VODBUseArea(TRUE, rddList, "sales", "sales", TRUE, FALSE) 12VODBOrdListAdd("LastName", NIL, NIL) 13MemFree(rddList) 14IF (Sales->(VODBSeek(cLast))) 15 IF Sales->(VODBDeleted()) 16 IF Sales->(RLock()) 17 Sales->(VODBRecall()) 18 ? "记录已恢复" 19 ELSE 20 ? "无法锁定记录..." 21 ENDIF 22 ENDIF 23ELSE 24 ? "未找到" 25ENDIF