Registrations are now open. Join us today!
There is still a lot of work to do on the wiki yet! More information about editing can be found here.
Already have an account?

Microsoft KB Archive/102890

From BetaArchive Wiki
Knowledge Base


How to Calculate Running Totals in a BROWSE Command

Article ID: 102890

Article Last Modified on 12/3/2003



APPLIES TO

  • Microsoft Visual FoxPro 3.0 Standard Edition
  • Microsoft FoxPro 2.5b
  • Microsoft FoxPro 2.0
  • Microsoft FoxPro 2.5b for MS-DOS



This article was previously published under Q102890

SUMMARY

You can display running totals from database fields, or running totals for a particular control break, by using calculated fields in a BROWSE command.

The following example uses the CUSTOMER database and displays the running total of year-to-date purchases (YTDPURCH field) using the file and field names in FoxPro 2.x:

   SELECT 0
   USE CUSTOMER
   BROWSE FIELDS CNO, YTDPURCH, RUNNINGYTD=RUNNINGSUM()
 
   PROCEDURE RUNNINGSUM
   m.saverec = RECNO()
   GO TOP
   SUM YTDPURCH WHILE RECNO() <= m.saverec TO m.total
   GO m.saverec
   RETURN m.total
                

The same concept can also be applied to display running totals for a particular control break. For example, if we wanted to calculate the running total of year-to-date purchases by company number (CNO), and have an index tag on CNO, the following code could be used:

   SELECT 0
   USE CUSTOMER
   SET ORDER TO TAG CNO
   BROWSE FIELDS CNO, YTDPURCH, RUNNINGSUM = CNOTOT(CNO)
 
   FUNCTION CNOTOT
   PARAMETERS mkey
   m.saverec = RECNO()
   SEEK mkey
   SUM YTDPURCH WHILE CNO=mkey .AND. RECNO()<=m.saverec to m.total
   GO m.saverec
   RETURN m.total
                


Additional query words: VFoxWin FoxDos FoxWin 2.00, 2.50, BROWSE, CALCULATE

Keywords: KB102890