Logical. FOUND( ) returns True (.T.) if the most recent CONTINUE, FIND, LOCATE, or SEEK command was successful; otherwise, it returns False (.F.). If a table is not open in the work area you specify, FOUND( ) returns False. When FOUND( ) encounters an end-of-file, which can be determined by the EOF( ) function, it always returns False.

If you call FOUND( ) without arguments, FOUND( ) is called on the table open in the currently selected work area.

The following example locates and counts all customers whose Country field in the Customer table contains "GERMANY". CLOSE DATABASES closes all databases, and OPEN DATABASE opens the sample Visual FoxPro database, TestData.dbc. USE opens the Customer table.

STORE stores a value of 0 in the variable gnCount. LOCATE searches for the first record in which the Country field contains the value "GERMANY". The DO WHILE loop increments the variable gnCount by 1 and uses CONTINUE to perform another LOCATE operation. When there are no more matching records, the total number of customers is displayed.

	Copy Code
CLOSE DATABASES OPEN DATABASE (HOME(2) + 'Data\TestData') USE Customer STORE 0 TO gnCount LOCATE FOR UPPER(Country)='GERMANY' DO WHILE FOUND() gnCount = gnCount + 1 CONTINUE ENDDO ? "Total customers from Germany: "+LTRIM(STR(gnCount))

Reference

Other Resources