_DBRecNo( ) 具体使用该函数？ how to use _DBRecNo

Visual FoxPro 9.0 Language Reference

_DBRecNo( ) API Library Routine

long _DBRecNo(int workarea)int workarea; /* Work area. */

Remarks

If no table is open in the specified work area, _DBRecNo( ) returnsa negative integer whose absolute value is a Visual FoxPro error number. If therecord pointer is at the end of file, _DBRecNo( ) returns a number that is 1greater than that returned by _DBRecCount( ).
For more information on how to create an API library and integrateit with Visual FoxPro, see [url=">Accessing the VisualFoxPro API.

Example

The following example provides functionality similar to that of theVisual FoxPro RECNO( ) function.

Visual FoxPro Code

Copy Code
SET LIBRARY TO DBRECNODO CreateTestGO 3? DBRECNO()GO 6? DBRECNO()USE? DBRECNO() && returns -119PROCEDURE CreateTestCREATE TABLE test (ABC C(20))APPEND BLANKREPLACE ABC WITH "This is record 1"APPEND BLANKREPLACE ABC WITH "This is record 2"APPEND BLANKREPLACE ABC WITH "This is record 3"APPEND BLANKREPLACE ABC WITH "This is record 4"APPEND BLANKREPLACE ABC WITH "This is record 5"APPEND BLANKREPLACE ABC WITH "This is record 6"GO TOPRETURN