home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / bit / listserv / dbasel / 1528 < prev    next >
Encoding:
Internet Message Format  |  1993-01-28  |  1.4 KB
  1. Path: sparky!uunet!uvaarpa!darwin.sura.net!spool.mu.edu!yale.edu!newsserver.jvnc.net!gmd.de!Germany.EU.net!mcsun!uknet!bnr.co.uk!pipex!demon!wsti.demon.co.uk!davec
  2. From: davec@wsti.demon.co.uk (David Churcher)
  3. Newsgroups: bit.listserv.dbase-l
  4. Subject: Re: Question on using BROWSE on FOXPRO
  5. Message-ID: <728192305snz@wsti.demon.co.uk>
  6. Date: 27 Jan 93 22:47:09 GMT
  7. References: <01GTUP286PQA000K2R@utarlg.uta.edu>
  8. Sender: usenet@demon.co.uk
  9. Reply-To: davec@wsti.demon.co.uk
  10. Organization: Welcom Software Technology International
  11. Lines: 29
  12. X-Mailer: Simple NEWS 1.90 (ka9q DIS 1.18)
  13.  
  14. In article <01GTUP286PQA000K2R@utarlg.uta.edu> C034CCM@UTARLG.UTA.EDU writes:
  15.  
  16. >        My question is : Is there anyway that I can move the highlighted
  17. >                         bar between the records within the BROWSE window
  18. >                         and press a defined key (F10) to change the
  19. >                         logical field PASS to .F. ,then remove that record
  20. >                         from the BROWSE window (not from the database) and
  21. >                         finally store the value .F. to the database file ?
  22.  
  23.  Something like this:
  24.  
  25.  ON KEY LABEL F10 DO notpassed
  26.  BROWSE FOR Pass
  27.  ON KEY LABEL F10
  28.  RETURN
  29.  
  30.  PROCEDURE notpassed
  31.  ON KEY LABEL F10
  32.  IF .NOT. EOF()
  33.   REPLACE Pass WITH .F.
  34.   SKIP
  35.  ENDIF
  36.  SHOW WINDOW (WONTOP()) REFRESH
  37.  ON KEY LABEL F10 DO notpassed
  38.  RETURN
  39.  
  40.  The SHOW WINDOW ... REFRESH will refresh the browse display.
  41.  
  42.  Dave C.
  43.