LOCAL lcOrder, lcIndexName SELECT cQuoteList WITH this IF .cColName = ALLTRIM(tcColName) .cColOrder = IIF(.cColOrder = 'DESC', 'ASCEND', 'DESC') lcIndexName = .cIndexName ELSE .cColOrder = 'ASCEND' .cColName = ALLTRIM(tcColName) lcIndexName = SUBSTR(SYS(2015), 3, 10) .cIndexName = lcIndexName INDEX ON &tcField TO &lcIndexName ENDIF lcOrder = .cColOrder SET ORDER TO &lcIndexName &lcOrder .LockScreen = .T. .grdList.refresh() LOCATE .LockScreen = .F. ENDWITH