home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
trl14db.zip
/
TRLPRG.EXE
/
FLDCOUNT.PRG
< prev
next >
Wrap
Text File
|
1990-10-22
|
494b
|
25 lines
***********
* FLDCOUNT.PRG
* by Leonard Zerman and Tom Rettig
* Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
*
* SYNTAX: DO FLDCOUNT
* RETURN: <expN> interger number of fields in currently selected file
* -1 if no dbf is open.
***********
PRIVATE field_no
field_no = 0
DO WHILE .T.
field_no = field_no + 1
IF [] = FIELD( field_no )
EXIT
ENDIF
ENDDO
tr_retn = field_no - 1
IF fox
RETURN (tr_retn)
ENDIF
* eof fldcount *