>1- Assume parent named pr and child ch and relation set and set fields issued.
>select ch
>chfields = set("fields",1) && fields set for child
>select pr
>prfields = set("fields",1) && fields set for parent
>set library to fpath && foxtools.fll if windows
>lnSpaces = 0
>for ixc = 1 to words(prfields)
> lnSpace = lnSpace + fsize(wordnum(prfields, ixc, " ,"))
>endfor
>set fields off && Turn off set fields temporarily
>set alternate to myfile.txt
>set alternate on
>scan
> ? &prfields
> select ch
> if !eof() && Else nothing to print
> ?? &ch
> skip
> endif
> scan while ch.linkexp = pr.linkexp && Whatever your relation is
> ? space(lnSpaces) , &ch
> endscan
> select pr
>endscan
>set alternate to
>set alternate off && No more space but this is ok and works

Thanks for the code, I will try it, but first of all have to study it carefully so that I can understand !!!! Thanks !!