home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 74 / IOPROG_74.ISO / ioProg.exe / ioProg.DXR / Internal_199_ScriptNextRecordFind.ls < prev    next >
Encoding:
Text File  |  2003-09-30  |  561 b   |  15 lines
  1. global ActualRecordset, linea, righeMissing
  2.  
  3. on mouseUp me
  4.   DGRSmoveNext(ActualRecordset)
  5.   if DGRSisEOF(ActualRecordset) then
  6.     DGRSmovePrev(ActualRecordset)
  7.   else
  8.     put DGRSGetFieldValue("Applicazione", ActualRecordset) into member "TitoloFind"
  9.     put DGRSGetFieldValue("Descrizione", ActualRecordset) into member "testoListaTrovati"
  10.     put DGRSGetFieldValue("numeroRivista", ActualRecordset) into member "numRivFind"
  11.     put DGRSGetFieldValue("file", ActualRecordset) into member "nomeFile"
  12.     member("testoListaTrovati").scrollTop = 0
  13.   end if
  14. end
  15.