LOCAL ARRAY laPom(ALEN(thisform.array_properties,1),ALEN(thisform.array_properties,2)) =ACOPY(thisform.array_properties,laPom) do form (Form A) with laPomIf you want pass array and return it, you can send object:
LOCAL loObj loObj=CREATEOBJECT("_passArray") LOCAL ARRAY loObj.aPom(ALEN(thisform.array_properties,1),ALEN(thisform.array_properties,2)) =ACOPY(thisform.array_properties,loObj.aPom) do form (Form A) with myarray_table ** form.Init LPARAM loObj This._Param=loObj && You must create new property _Param loObj.APom(1)="changed value" ** form.Init end =ACOPY(loObj.aPom,thisform.array_properties) ?thisform.array_properties(1) ************************************* DEFINE CLASS _passArray AS CUSTOM aPom(1) && Declare Array ENDDFINEMartinJ