General information
Category:
Coding, syntax & commands
>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 !!
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only