It looks like you're new here. Sign in or register to get started.
REPEAT oRecRef.GETTABLE(rRessource); oNewTempRecRef.OPEN(156,TRUE); oFieldRef := oRecRef.FIELDINDEX(1); oTempFieldRef := oNewTempRecRef.FIELDINDEX(1); oTempFieldRef.VALUE := oFieldRef.VALUE; oNewTempRecRef.INSERT; UNTIL rRessource.Next = 0;
oNewTempRecRef.OPEN(156,TRUE); REPEAT oRecRef.GETTABLE(rRessource); oFieldRef := oRecRef.FIELDINDEX(1); oTempFieldRef := oNewTempRecRef.FIELDINDEX(1); oTempFieldRef.VALUE := oFieldRef.VALUE; oNewTempRecRef.INSERT; UNTIL rRessource.Next = 0;
Comments
If I open my RecRef again temporary it can't work.
REPEAT
oRecRef.GETTABLE(rRessource);
oFieldRef := oRecRef.FIELDINDEX(1);
oTempFieldRef := oNewTempRecRef.FIELDINDEX(1);
oTempFieldRef.VALUE := oFieldRef.VALUE;
oNewTempRecRef.INSERT;
UNTIL rRessource.Next = 0;
oNewTempRecRef.CLOSE
Suggest: oNewTempRecRef as local variable.
Eto
oNewTempRecRef.CLOSE
Can we use
oNewTempRecRef.RESET