>SET UDFPARMS TO VALUE >CREATE CURSOR tmp (a c(10),b c(10)) >INSERT INTO tmp values("aaaaa","bbbbb") >SCATTER MEMO name otmp ADDITIVE >?otmp.a && showing "aaaaa" >otmp2=otmp >?otmp2.a && showing "aaaaa" >otmp.a="11111" >?otmp2.a && showing "11111" ?! >otmp2.a="22222" >?otmp.a && showing "22222" ?! >It's normal you have reference to the same object.
Create Cursor tmp (a c(10),b c(10)) Insert Into tmp Values("aaaaa","bbbbb") Scatter Memo Name otmp Additive ?otmp.a && showing "aaaaa" otmp2 = CopyEmpty(oTmp) ?otmp2.a && showing "aaaaa" otmp.a="11111" ?otmp2.a && showing "11111" ?! otmp2.a="22222" ?otmp.a && showing "22222" ?! Procedure CopyEmpty(toEmpty) Local oCopy,ix oCopy = Createobject("Empty") For ix= 1 To Amembers(aObjProp,toEmpty) AddProperty(oCopy,aObjProp[m.ix],Evaluate("toEmpty."+aObjProp[m.ix])) Endfor Return oCopy endprocCetin