Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
End of file encountered
Message
From
08/07/2005 12:28:08
 
 
To
08/07/2005 12:07:22
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01030354
Message ID:
01030570
Views:
17
M.

1. You never seem to listen! You're getting in a muddle with skip again when several people over the years have advised you to use scan.
2. Next, Sum takes you to the bottom of the file, and you don't return to where you were before (not storing the recno to GOTO). So you only get the one.
3. Even if it DID sum each set it means you're travelling through the table many times.
4. Assuming tot_t is a field in the table, why not tot it up as you go?
e.g.
Select curbilldata
SCAN
  m.divi =  curbilldata.divi
  m.r    = 0
  Scan Rest while m.divi = curbilldata.divi
    m.r = m.r + tot_t
  EndScan

* I don't know what you're doing with this next line
* Seems all the records in the range of the inner scan will get the same  tot_tot value
* and will ruin you file pointer. Reconsider.
* ___________________________________________
  replace tot_tot WITH m.r/2 for m.divi = curbilldata.divi
  
EndSCAN
Terry
- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform