>

lnNbFields = AFields(laStruct, "MyTable")
>llFound = .F.
>lnI = 1
>
>DO WHILE (lnI <= lnNbFields) AND NOT llFound
>   llFound = Evaluate(laStruct[lnI, 1]) = "Y"

Danger Will Robinson!  You've gone and assumed that all fields are a character type...at least check TYPE(laStruct[lnI,1]) to make sure it's "C"

Also, since the count of fields is finite, I'd probably use a FOR...NEXT loop.

>   lnI = lnI + 1
>ENDDO
>
>IF llFound
>   *-- Do whatever
>ENDIF

HTH

---

>I am looking for a shortcut way to do this.
>>Thanks in advance and then some.
>>
>>IF mytable.my_field1 = "Y" OR ;
>> mytable.my_field2 = "Y" OR ;
>> mytable.my_field3 = "Y" OR ;
>> mytable.my_field4 = "Y" OR ;
>> mytable.my_field5 = "Y" OR ;
>> ...(do whatever)
>>ENDIF