bb.donnay-software.com

Posted: **Tue Oct 16, 2012 3:28 pm**

Roger,

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


 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

Posted: **Tue Oct 16, 2012 8:55 pm**

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]})}

Posted: **Wed Oct 17, 2012 8:52 am**

Roger,

of course your solution works. Many thanks.

JAnko

bb.donnay-software.com

Macro in SORT code block

Macro in SORT code block

Re: Macro in SORT code block

Re: Macro in SORT code block