>>>
>>>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
>To make spaces appear as you enter put "

" at the start and "

" at the end. But I don't know why code section has extra linefeeds.
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_>