>>>>
>>>>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
>>Resending in case you miss the branch.
>>I was afraid codes would work between qutations and it was the case. So I write the sequence sperated by underscores :
>>Start : <_P_R_E_> End : <_/_P_R_E_>
>
>" I'm testing the quotations in this line."
>I don't understand this message at all.
>I don't know what the sequences represent.
>
>Bill
Send a code surrounded with <_P_R_E_> and <_/_P_R_E_> (remove underscores. They are there to supress interpretation). The code will be intended as you entered.