bof( ) 函数

bof( ) 函数

确定当前记录指针是否在表头。

bof( ) 函数bof( ) 函数

确定当前记录指针是否在表头。

bof( ) 函数参数

nWorkArea

指定在非当前工作区中打开的表所在的工作区号。

cTableAlias

指定在非当前工作区中打开的表别名。

如果表是在非当前选定工作区中打开的，那么使用这些可选的参数为表指定别名或所在的工作区号。若此表未在指定的工作区中打开，则 BOF( ) 返回“假”(.F.)。

bof( ) 函数说明

bof( ) 函数可以用来测试一个表的记录指针是否位于文件头。如果用户尝试将记录指针移动到表的第一条记录之前，则 BOF( ) 返回“真” (.T.)。

bof( ) 函数bof()函数示例

下面的示例打开 customer 表并显示一个窗口，使用命令按钮可以向前或向后移动表的记录指针，根据记录指针移动的方向，visual foxpro 测试该指针是在文件末尾 (eof) 还是在文件头 (bof)。如果任一条件为“真”(.t.)，visual fexpro 显示正确的内容，并移动记录指针到一个新的位置。

close databases

open database (home( ) + 'samples\data\testdata')

use customer && 打开 customer 表

set talk off

clear

activate screen

@ 2,1 say 'company: '+ company

define window wskip from 9,10 to 14,65 double color scheme 5

activate window wskip

@ 1,5 get gnchoice function '*hn \

default 0 size 2,14 valid choice( )

read cycle

release window wskip

procedure choice

do case

case gnchoice = 1

skip

if eof('customer')

wait window 'end of file encountered' nowait

skip -1

endif

case gnchoice = 2

skip -1

if bof('customer')

wait window 'beginning of file encountered' nowait

go top

endif

case gnchoice = 3

clear read

endcase

activate screen

@ 2,1 clear to 2,50

@ 2,1 say 'company: '+ company

return .t.