On Grid1.init
Create cursor temp (order C(254))

On Grid1.header1.click

Select temp
ZAP

SELECT * FROM orderlist INTO ARRAY aOrder ORDER BY date
IF _TALLY<>0
INSERT INTO temp FROM ARRAY aOrder
ENDIF

SELECT temp
Go Top

THIS.PARENT.PARENT.REFRESH()