>
>SELECT (THIS.Parent.Parent.RecordSource)
>if SEEK(UPPER(THIS.cSearchString),cAliasToSearch,this.cSeekTag)
> if cAliasToSearch # THIS.Parent.Parent.RecordSource
> =seek(eval(cAliasToSearch+"."+relation(1)),THIS.Parent.Parent.RecordSource,relation(1))
> endif
> IF THIS.nHoldRecord#RECNO(THIS.Parent.Parent.RecordSource)
> THIS.lSeekMode=.T.
> ENDIF
>ELSE
> GO THIS.nHoldRecord in (THIS.Parent.Parent.RecordSource)
>ENDIF

Hi Cetin,

I'm studying this thing now. But I'm curious. How do you get the spaces to stay in your message? Everytime
I put spaces into a message here on the UT, they get eliminated. I can't even put a "." at the front of the
line to prevent trimming it.
For example: I indented this line about 20 spaces.

Bill