Macro in SORT code block

[Janko]

Roger,

I have troubles with macros in code blocks again. I'm trying to automate

Code: Select all

 FOR i:= 1 to len(aNazivi)
                DCBROWSECOL ELEMENT i HEADER aNazivi[i]  WIDTH aSir[i] ;
	SORT {||ASort(arr,,,{|a,b|a[i]<b[i]})} 	PARENT oBrowse
NEXT i

which is sorting of coures wrong. If correcting SORT code block with

Code: Select all

FOR i := 1 TO len(aNazivi)
	bSort:=("{|a,b|a["+str(i,2)+"]<b["+str(i,2)+"]}")
                DCBROWSECOL ELEMENT i HEADER aNazivi[i]  WIDTH aSir[i] ;
	SORT  {||Asort(arr,,,&(bsort) )};
	PARENT oBrowse
NEXT

sorting is performed by last column.
How should codeblock look like?

Best rgards
JAnko

[rdonnay]

You need to anchor each value of i with a detached codeblock:

Code: Select all

FOR i:= 1 to len(aNazivi)
                DCBROWSECOL ELEMENT i HEADER aNazivi[i]  WIDTH aSir[i] ;
   SORT SortBlock(arr,i)     PARENT oBrowse
NEXT i


STATIC FUNCTION SortBlock( arr, i )

RETURN {||ASort(arr,,,{|a,b|a[i]<b[i]})}

[Janko]

Roger,

of course your solution works. Many thanks.

JAnko