>>>>>
>>>>>FOR ix = 1 to Whatever
>>>>> WITH EVALUATE('loObj'+TRANSFORM(m.ix))
>>>>> REPLACE JMJ_IN.Diag1 WITH LEFT(ALLTRIM(UPPER(.Field019)),AT('^',.Field019)-1)
>>>>> ENDWITH
>>>>>ENDFOR
>>>>>
>>>
>>>Personally, I'm scared to death of WITH...ENDWITH
>>>
>>>
http://fox.wikis.com/wc.dll?Wiki~WithLeaksLocals~VFP>>
>>Yep,
>>When you use some functions or any other EXTERNAL to WITH...ENDWITH could be dangerous, but with simple REPLACE?
>
>Absolutely!
>
>WITH SOMETHING
> REPLACE SOMEFIELD WITH MYUDF()
>ENDWITH
>
>MYUDF.PRG
>IF M.THIS OR .THAT
>
>".that" should have been "m.that", but oops. Try to debug this (or THAT) :)
Hmm, I was talk about
simple REPLACE :-)
WITH Something
REPLACE SOMEFIELD WITH .SomeProperty
ENDWITH
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.