home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBFWNEXT.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  490 b   |  22 lines
  1.     // TBFwNext.prg
  2.     //
  3.     // TBFwGoNext() - Move to next record with for and while condition
  4.     //                set. Return .T. if moved, otherwise .F.
  5.  
  6.     FUNCTION TBFwGoNext(bFor, bWhile)
  7.  
  8.     LOCAL nSaveRecNum := recno()
  9.     LOCAL lMoved := .T.
  10.  
  11.       SKIP
  12.       DO WHILE !eval(bFor) .AND. eval(bWhile) .AND. !eof()
  13.         SKIP
  14.       ENDDO
  15.  
  16.       IF !eval(bWhile) .OR. eof()
  17.         GOTO nSaveRecnum
  18.         lMoved := .F.
  19.       ENDIF  
  20.  
  21.     RETURN lMoved
  22.