LPARAMETERS tcAlias, tcSearchString CREATE CURSOR SearchResult ( ; RecordNumber N(10), ; FieldNumber N(3), ; FiledName C(128) ) SELECT (tcAlias) LOCAL lnI, lnFound lnFound = 0 SCAN FOR lnI=1 TO FCOUNT() IF TYPE( FIELD(lnI)) = "C" IF tcSearchString $ EVAL(FIELD(lnI)) INSERT INTO SearchResult VALUES (RECNO(), lnI, FIELD(lnI, tcAlias)) lnFound = lnFound + 1 ENDIF NDIF ENDFOR ENDSCAN RETURN lnFound