recno( ) 函数示例

下面的示例在 customer 表中搜索一个公司的名称。如果没有找到该公司的名称，就使用 recno(0):返回最接近匹配的公司名称。

close databases
open database (home( ) + 'samples\data\testdata')
use customer &&打开 customer 表
set order to company
seek 'ernst'
if found( )
display company, contact
else
goto recno(0)
clear
? 'closest matching company is ' + company
? 'record number: ' + alltrim(str(recno( )))
endif