HMGforum.com

Code: Select all

ON HEADCLICK { {|| Sort_Grid_XFER(1)}  , { || Sort_Grid_XFER(2)} , { || Sort_Grid_XFER(3) } , { || Sort_Grid_XFER(4) }  } ;



FUNCTION Sort_Grid_XFER(t)
/************************/
LOCAL nATL := Form_SL_XFER1.Grid_XFER.ItemCount
DECLARE nF [ nATL, 4 ]
 
FOR I := 1 To nATL
	aItem		:= Form_SL_XFER1.Grid_XFER.Item ( i )  
	nF [i,1]	:= aItem [1]   // use val or ctod if necessary !!!
	nF [i,2]	:= aItem [2] 
	nF [i,3]	:= aItem [3] 
	nF [i,4]	:= aItem [4] 
NEXT A

aSortnF := ASORT(nF,,, { |x, y | x[t] < y[t] } )

DELETE ITEM ALL FROM Grid_XFER OF Form_SL_XFER1
AEVAL( nF, {| elem | add_item(elem, 'Form_SL_XFER1' , 'Grid_XFER' ) } )
RETURN


FUNCTION add_item(elem, form, gridz )
ADD ITEM {elem[1] , elem[2], elem[3], elem[4] } TO &gridz OF &form
RETURN