>llFound = .f. >for i = 1 to fcount() > if type(field(i)) = "C" > if somevalue $eval(field(i)) && might want to use upper() on both > llfound = .t. > exit > endif > endif >next >if llFound > return field(i) >else > return .null. >endifsorry. To search the table: