home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / FLDCOUNT.PRG < prev    next >
Text File  |  1990-10-22  |  494b  |  25 lines

  1. ***********
  2. * FLDCOUNT.PRG
  3. * by Leonard Zerman and Tom Rettig
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO FLDCOUNT  
  7. * RETURN: <expN> interger number of fields in currently selected file
  8. *         -1 if no dbf is open.
  9. ***********
  10. PRIVATE field_no
  11. field_no = 0
  12. DO WHILE .T.
  13.    field_no = field_no + 1
  14.    IF [] = FIELD( field_no )
  15.       EXIT
  16.    ENDIF
  17. ENDDO
  18. tr_retn = field_no - 1
  19. IF fox
  20.    RETURN (tr_retn)
  21. ENDIF
  22. * eof fldcount *
  23.  
  24.  
  25.