iSaveSelect = SELECT() select 0 Create Cursor cuViews (cView c(150), iOrder i) Dimension aAll_Views(ALen(aAll_Views), 1) && so APPEND FROM ARRAY can be used Append From Array aAll_Views for li = 1 to ALEN(aAll_Views) lcView = Alltrim(aAll_Views[li]) ?Lower(DBGetProp(Alltrim(cuViews.cView), "View", "SQL")) ?AT(Lower(lcView), Lower(DBGetProp(Alltrim(cuViews.cView), "View", "SQL"))) wait window lcview replace all iOrder with iOrder+1 ; for AT(Lower(lcView), Lower(DBGetProp(Alltrim(cuViews.cView), "View", "SQL"))) > 0 brow norm *!* Update cuViews ; *!* Set iOrder=iOrder+1 ; *!* Where AT(Lower(lcView), Lower(DBGetProp(Alltrim(cuViews.cView), "View", "SQL"))) > 0 Endfor Select cViewName ; From cuViews ; Order By iOrder ; Into Array aAll_Views brow norm USE in cViewName SELECT (iSaveSelect)replace all iOrder with iOrder+1 ;