An expression that specifies the field value to find. Not case sensitive.
Optional. Default = all fields. The name of the single field to search in.
Locate the next value/pattern if the field specified.
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.
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.")