home *** CD-ROM | disk | FTP | other *** search
/ Shareware 1 2 the Maxx / sw_1.zip / sw_1 / TEXT / PDX_ALL.ZIP / TI526.ASC < prev    next >
Text File  |  1991-09-11  |  983b  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.   PRODUCT  :  PARADOX                                NUMBER  :  526
  8.   VERSION  :  ALL
  9.        OS  :  DOS
  10.      DATE  :  September 11, 1991                       PAGE  :  1/1
  11.  
  12.     TITLE  :  SCAN LOOP TO PLACE THE RECORD NUMBER
  13.               IN A REGULAR FIELD
  14.  
  15.  
  16.  
  17.  
  18.   This is an example of a simple scan loop.  The main purpose of a
  19.   scan is to examine each record of a table executing each group of
  20.   commands within the loop on each record.  We make use of a table
  21.   called TEST that has a numeric field called Number.
  22.  
  23.  
  24.   View "TEST"       ; Call the TEST table.
  25.   Editkey           ; Simulates pressing [F9] to Edit Mode.
  26.   Moveto[Number]    ; Move to the field named Number.
  27.   Scan              ; Start the scan loop.
  28.      [] = Recno()   ; Assign the record number to the field.
  29.   EndScan           ; Quit the scan loop.
  30.   Do_It!            ; Save the changes to the table.
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.