home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / DBSTBLZE.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  453 b   |  20 lines
  1.     // DbStblze.prg
  2.     //
  3.     // DbStabilize() - Repeatedly call stabilize until it returns .T.,
  4.     //                 ensuring the same record is highlighted (for
  5.     //                 database edits)
  6.  
  7.     FUNCTION DbStabilize(oTbr)
  8.  
  9.     LOCAL nSaveRecno := recno()
  10.  
  11.       oTbr:refreshAll()
  12.       FullStabilize(oTbr)
  13.  
  14.       DO WHILE recno() != nSaveRecno
  15.         oTbr:up()
  16.         FullStabilize(oTbr)
  17.       ENDDO
  18.  
  19.     RETURN NIL
  20.