Pedro,

You must convert SET KEY TO ... to SET FILTER TO ...

LOCAL lii,lcTag,lcAFilter,lcNOrder,llSep
lcNOrder="New_Index"

lii=1
DO WHILE .T.
   lcTag=TAG(lii)
   IF EMPTY(lcTag)
      lcAFilter=""
      EXIT
   ELSE
      IF lcTag==lcNOrder
         * KEY()
         llSep=TYPE('SET("KEY",1)')="C"
         lcAFilter="BETWEEN("+KEY(lii)+","+;
                   IIF(llSep,"'","")+lcPom+IIF(llSep,"'","")+","+;
                   IIF(llSep,"'","")+SET("KEY",2)+IIF(llSep,"'","")+")"
         EXIT
      ENDIF
      lii=lii+1
   ENDIF
ENDDO
?lcAFilter

MartinJ

>Oh , it´s so bad !
>
>In my form i need change sometimes SET ORDER , I need use one SET KEY .
>
>I can´t use one SELECT SQL , because i open main table in dateEnvironment .
>
>Now , i don´t know , what i can do .
>
>Thanks