home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / trucs.dxr / 00084_NavVooruitUp.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  446 b   |  24 lines
  1. global FirstRecNr, searchmode, zoeklijst, zoekrecnr, leeg
  2.  
  3. on mouseUp
  4.   if searchmode then
  5.     DBGo(getAt(zoeklijst, count(zoeklijst)))
  6.     zoekrecnr = count(zoeklijst)
  7.     GetRecord()
  8.   else
  9.     if FirstRecNr > 0 then
  10.       repeat while DBSkip(1) = 0
  11.         nothing()
  12.       end repeat
  13.       DBSkip(-1)
  14.       if leeg = 0 then
  15.         GetRecord()
  16.       else
  17.         EmptyRecord()
  18.       end if
  19.     else
  20.       EmptyRecord()
  21.     end if
  22.   end if
  23. end
  24.