>>>
>>>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~VFPYep,
When you use some functions or any other EXTERNAL to WITH...ENDWITH could be dangerous, but with simple REPLACE?
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.