>Thanks a lot, I'll look through it.

I just saw a bug in my code :-) (maybe there are others)

SCAN
   IF Id # m.lnId
      lnNextField = 1
      lnId        = crsTest.Id
      *** APPEND BLANK IN crsChid 
      INSERT INTO crsChid (Id) VALUES (crsTest.Id)
   ENDIF
   lcFldName = [pcField]+TRANSFORM(lnNextField)
   REPLACE &lcFldName WITH crsTest.cField1 IN crsChid
   lnNextField = lnNextField + 1
ENDSCAN