RECSIZE 函 数 - 图1RECSIZE 函 数 - 图2RECSIZE 函 数

RECSIZE 函 数 - 图3返回表中记录的大小 RECSIZE 函 数 - 图4宽度 RECSIZE 函 数 - 图5

语 法

RECSIZE([ n W o rkArea | cTableAlias ])

返 值 类 型

数值型

参 数 描 述

n W o rkArea

RECSIZE 函 数 - 图6RECSIZE 函 数 - 图7RECSIZE 函 数 - 图8指 定 表 所 在 的 工 作 区 编 号 如 果 指 定 工 作 区 中 没 有 打 开 的 表 REC SIZE ( ) 返回 0

cTableAlias

RECSIZE 函 数 - 图9指 定 非 当 前 工 作 区 中 打 开 表 的 别 名

说 明

RECSIZE 函 数 - 图10RECSIZE 函 数 - 图11RECSIZE 函 数 - 图12RECSIZE 函 数 - 图13不带可选参数 nWorkArea 和 cTableAlias 发出 RECSIZE 函数 将返回当前选定工作区中表的记录大小

示 例

RECSIZE 函 数 - 图14RECSIZE 函 数 - 图15在下面的 example 中 Visual FoxPro 比较可用的磁盘空间与对 customer 表排序所需空间的大小

*** 在排序前检查磁盘空间 ***

CLOSE DATABASES

OPEN DATABASE (HOME(2) + 'Data\testdata') USE customer && 打开表 Customer

*** 得到表头的大小 ***

gnTableHead = HEADER( )

*** 计算表的大小 ***

RECSIZE 函 数 - 图16RECSIZE 函 数 - 图17RECSIZE 函 数 - 图18RECSIZE 函 数 - 图19RECSIZE 函 数 - 图20gnFileSize = gnTableHead + ( RECSIZE 函 数 - 图21 RECSIZE 函 数 - 图22 RECSIZE 函 数 - 图23 RECSIZE 函 数 - 图24 * RECCOUNT + 1) IF DISKSPACE RECSIZE 函 数 - 图25 RECSIZE 函 数 - 图26 > (gnFileSize * 3)

WAIT WINDOW 'Sufficient diskspace to sort.' ELSE

WAIT WINDOW 'Insufficient diskspace. Sort cannot be done.' ENDIF

请 参 阅

RECCOUNT ( ) , FSIZE( )