点击或拖拽改变大小

Functions.VoDbCloseAll 方法

X#
关闭所有工作区中的所有文件。

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

返回值

类型:Boolean
如果成功则返回 TRUE;否则返回 FALSE。
备注
VODBCloseAll() 与 DBCloseAll() 相同。
然而,此函数不调用错误处理程序,因此不会在失败时产生运行时错误消息或创建错误对象。因此,检查返回值以确定函数是否成功可能很重要。
全局结构 StrucErrInfo 将包含有关发生的任何错误的必要信息。有关更多信息,请参见 DBCloseAll()。
示例
以下示例关闭所有工作区:
X#
 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
10VODBUseArea(TRUE, rddList, "sales", "sales", TRUE, FALSE)
11VODBOrdListAdd("Last", NIL)
12VODBUseArea(TRUE, rddList, "customer", "", TRUE, FALSE)
13MemFree(rddList)
14cLast := customer->last
15IF (Sales->(VODBSeek(cLast)))
16    IF Sales->(Deleted())
17        IF RLock()
18            Sales->(VODBRecall())
19            ? "已删除记录: ", sales;
20                (Deleted())
21        ENDIF
22    ENDIF
23ELSE
24    ? "未找到"
25ENDIF
26VODBCloseAll()        // 关闭所有工作区
参见