Macro SET INDEX TO &more_than_one

[AUGE_OHR]

hi,

have make more Test with SET INDEX

Code: Select all

         DO CASE
            CASE iMax = 1
*               SET INDEX TO &cRet
                SET INDEX TO &(aPara[1])
            CASE iMax = 2
            altd()
               SET INDEX TO &(aPara[1]), &(aPara[2])
            CASE iMax = 3 ; SET INDEX TO &(aPara[1]), &(aPara[2]), &(aPara[3])
            CASE iMax = 4 ; SET INDEX TO &(aPara[1]), &(aPara[2]), &(aPara[3]), &(aPara[4])
            CASE iMax = 5 ; SET INDEX TO &(aPara[1]), &(aPara[2]), &(aPara[3]), &(aPara[4]), &(aPara[5])
            CASE iMax = 6 ; SET INDEX TO &(aPara[1]), &(aPara[2]), &(aPara[3]), &(aPara[4]), &(aPara[5]), &(aPara[6])
            CASE iMax = 7 ; SET INDEX TO &(aPara[1]), &(aPara[2]), &(aPara[3]), &(aPara[4]), &(aPara[5]), &(aPara[6]), &(aPara[7])
            CASE iMax = 8 ; SET INDEX TO &(aPara[1]), &(aPara[2]), &(aPara[3]), &(aPara[4]), &(aPara[5]), &(aPara[6]), &(aPara[7]), &(aPara[8])
            CASE iMax = 9 ; SET INDEX TO &(aPara[1]), &(aPara[2]), &(aPara[3]), &(aPara[4]), &(aPara[5]), &(aPara[6]), &(aPara[7]), &(aPara[8]), &(aPara[9])
         ENDCASE

it "seems" to work ... but it is wrong while i can use a Index which does not belong to DBF

---

i have think about last Answer an got to this Solution

Code: Select all

   IF !EMPTY( cRet )
      ORDLISTCLEAR()
      aPara  := AtInside( ",", cRet )
      iMax := LEN(aPara)
      FOR i := 1 TO iMax
         cIndex := aPara[i]
         lRet   := .F.
         bError := ERRORBLOCK( { | oErr | BREAK( oErr ) } )
         BEGIN SEQUENCE
            SET INDEX TO &cIndex ADDITIVE
            lRet := .T.
         END SEQUENCE
         ERRORBLOCK( bError )
      NEXT

now i use "one-by-one" Index with ADDITIVE and that Way seem to work.

SETINDEX2.ZIP

(2.28 KiB) Downloaded 119 times

---

Question : how to make a Form "always on Top"

sometimes a Form is behind other Form and all seems to "hang" ... but other Form "behind" is waiting

[serge_girard]

Jimmy ,
Try TOPMOST!

Serge

[AUGE_OHR]

Try TOPMOST!

YES