>The new DO CASE based on your reply
>Thanks all :-)
>
>

>DO CASE
>   CASE nDots > 1  && object property
>     lIsField=.F.
>   CASE nDots = 1  && property or field
>     lIsField= USED(JUSTSTEM(.controlsource)) AND FSIZE(JUSTEXT(.controlsource))>0 && returns .t. if field
>   OTHERWISE  && nDots=0
>     lIsField= FSIZE(.controlsource)> 0
>ENDCASE	
>
>

Gerald,
Parsing was prohibited :)?
Some comments which might never apply :
-Multiple dots where conrolsource is multiple fields.
-Dots=0 and isField and alias not the current one
-Dots=1 this sounds better :
lIsField= FSIZE(JUSTEXT(.controlsource), JUSTSTEM(.controlsource))>0
-Dots = 1 but memvar, same name field in current alias && 'm.First_Name'
-Dots = 0 but old syntax && 'myTable->First_Name'

Cetin