E O F 函数

E O F 函数 - 图3 确定记录指针是否超出当前表或指定表中的最后记录

语法

EOF([ n W orkArea | cTableAlias ])

返值类型

逻辑值

参数描述

n W o rkArea

E O F 函数 - 图4 指定表所在的工作区号

cTableAlias

E O F 函数 - 图5 指定表的别名

E O F 函数 - 图6 E O F 函数 - 图7 E O F 函数 - 图8 E O F 函数 - 图9 E O F 函数 - 图10 E O F 函数 - 图11 如果指定工作区中没有打开的表则 EOF 函数返回假 (.F.)

E O F 函数 - 图12 E O F 函数 - 图13 E O F 函数 - 图14 如果没有指定工作区或别名则检查当前选定工作区中打开的表看是否到达了表的最后一个记录

说明

E O F 函数 - 图15 E O F 函数 - 图16 E O F 函数 - 图17 E O F 函数 - 图18 E O F 函数 - 图19 E O F 函数 - 图20 E O F 函数 - 图21 E O F 函数 - 图22 E O F 函数 - 图23 E O F 函数 - 图24 E O F 函数 - 图25 E O F 函数 - 图26 E O F 函数 - 图27 E O F 函数 - 图28 如果记录指针已指向表文件的末尾 (EOF) 则 EOF 返回真 (.T.) 当记录指针超过表中的最后记录时即到达表的末尾例如当 FIND LOCATE 或 SEEK 命令不成功时 Visual FoxPro 将把记录指针移动到最后一个记录之后 EOF 函数返回

E O F 函数 - 图29 E O F 函数 - 图30 E O F 函数 - 图31 E O F 函数 - 图32 E O F 函数 - 图33 E O F 函数 - 图34 E O F 函数 - 图35 E O F 函数 - 图36 E O F 函数 - 图37 真 (.T.) 当记录指针并不指向表的末尾时 EOF 函数返回假 (.F.)

示例

E O F 函数 - 图38 E O F 函数 - 图39 E O F 函数 - 图40 E O F 函数 - 图41 E O F 函数 - 图42 下面的示例打开 customer 表并且一次一页地列出公司名称直到文件尾或者选择了取消才结束

CLOSE DATABASES

CLEAR

OPEN DATABASE (HOME() + "samples\data\testdata")

USE customer GO TOP

local recCtr, btnValue recCtr = 0

btnValue = 1

DO WHILE btnValue = 1 AND NOT EOF()

? "Company : " + company recCtr = recCtr + 1

if (recCtr % 20) = 0 then

btnValue =MESSAGEBOX ("Click OK to continue, ; Cancel to quit.",33)

clear endif

Skip 1 && 下移一个记录

ENDDO

=MESSAGEBOX("Listing complete.",48)

请参阅

BOF ( ) , G O | GOTO , SKIP

E O F 函 数

E O F 函 数

E O F 函数

E O F 函数