js editor
Web development
Returns the number of the current record in the table open in the specified work area.
long _DBRecNo(int workarea) int workarea; /* Work area. */ |
Remarks
If no table is open in the specified work area, _DBRecNo(В ) returns a negative integer whose absolute value is a Visual FoxPro error number. If the record pointer is at the end of file, _DBRecNo(В ) returns a number that is 1 greater than that returned by _DBRecCount(В ).
For more information on how to create an API library and integrate it with Visual FoxPro, see Accessing the Visual FoxPro API.
Example
The following example provides functionality similar to that of the Visual FoxPro RECNO(В ) function.
Visual FoxPro Code
| В |  Copy Code |
|---|---|
SET LIBRARY TO DBRECNO DO CreateTest GO 3 ? DBRECNO() GO 6 ? DBRECNO() USE ? DBRECNO() && returns -119 PROCEDURE CreateTest CREATE TABLE test (ABC C(20)) APPEND BLANK REPLACE ABC WITH "This is record 1" APPEND BLANK REPLACE ABC WITH "This is record 2" APPEND BLANK REPLACE ABC WITH "This is record 3" APPEND BLANK REPLACE ABC WITH "This is record 4" APPEND BLANK REPLACE ABC WITH "This is record 5" APPEND BLANK REPLACE ABC WITH "This is record 6" GO TOP RETURN | |
C Code
| В | Copy Code |
|---|---|
#include <pro_ext.h>
FAR Example(ParamBlk FAR *parm)
{
_RetInt(_DBRecNo(-1), 10);
}
FoxInfo myFoxInfo[] = {
{"DBRECNO", (FPFI) Example, 0, ""},
};
FoxTable _FoxTable = {
(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
}; | |