VFP Tutorial - Scan ... EndScan loop
The scan loop is unique to the FoxPro family. It processes records in a table and
executes the commands within the loop once for every record in the
current work area:
Use
Staff
In 0
Scan
If
Title =
'manager'
Replace
Salary
With
Salary * 1.10
Do
PayBonus
With ManagerID, 10000
Else
Replace
Salary
With
Salary * 1.02
EndIf
EndScan
The code in this example will modify every record in the Staff
table and reward the managers.
Notes
The simple Replace operation could have been
done with a for clause but the
Scan loop enables us to call the
PayBonus procedure as well and to pass the current ManagerID across for
each manager's record.
Back to FoxPro
program control.
Introduction |
Environment |
Project |
Tables |
Forms |
Navigation |
Executable
|