table.FETCH_LOC_NEXT Function

Syntax

Located_Flag as L = Fetch_Loc_Next(C pattern,C fieldname)

Arguments

pattern

An expression that specifies the field value to find. Not case sensitive.

fieldname

Optional. Default = all fields. The name of the single field to search in.

Description

Locate the next value/pattern if the field specified.

Discussion

The <TBL>.FETCH_LOC_NEXT() method fetches the next record in the table referenced with a field value that contains Matching_Expression. The search starts with the current record (or the next record if the current record was found by a <TBL>.FETCH_LOC_NEXT()and continues until it reaches the last record in the active range, index, or query list. When you supply the optional Fieldname parameter, <TBL>.FETCH_LOC_NEXT()searches only this field. If a Fieldname is not specified, all the fields in the table are searched. When <TBL>.FETCH_LOC_NEXT()finds a record with a matching field, it returns TRUE (.T.). This record becomes the current record. If no exact match is found, the result is FALSE (.F.). If <TBL>.FETCH_LOC_NEXT()does not find a match, the record pointer is not moved. <TBL>.FETCH_LOC_NEXT()searches for any occurrence of the Matching_Expression. For example, if the Matching_Expression evaluates to "software", and a particular record contains "Alpha Software Corporation", a match is found. Searches performed using the <TBL>.FETCH_LOC_NEXT() method can be slow in large tables because each record must be fetched and scanned. Lightning Query Optimization cannot be used to optimize the search. If the field you want to search is indexed, and the value you want to find is at the start of the field, you should consider using the <TBL>.FETCH_FIND() method.

Example 

This script counts the number of times a value occurs anywhere in the current table.

dim tbl as P
value = ui_get_text("Counter", "Value to count:")
if value = "" then
    end
end if
tbl = table.current()
'Reading records in record number order is fastest, so set order record order
tbl.index_primary_put()
tbl.fetch_first()
count = 0
while tbl.fetch_loc_next(value)
    count = count + 1
end while
trace.writeln(value + " found " + LTRIM(STR(count)) + " times.")

See Also