The line UPPER(aFlds[nCnt,1]) $ cKey could find partial matches. You''ll have to do same extra checking.

>Nope.
>You must program this by yourself
>
>

>
>FUNCTION GetIndexKeyFields(cOrder, cAlias)
>  LOCAL cOldAlias, cKey, aFlds[1], nFlds
>  LOCAL nCnt, oEmpty
>  oEmpty   = CREATEOBJECT("Empty")
>  ADDPROPERTY(oEmpty, "FieldsCount", 0)
>  ADDPROPERTY(oEmpty, "FieldsDef[1,4]", "")
>  cOldAlias = ALIAS()
>  SELECT (cAlias)
>  cKey =  KEY(TAGNO(cOrder,cAlias),cAlias)
>  nFlds = AFIELDS(aFlds,cAlias)
>  FOR nCnt =  1 TO nFlds
>      IF UPPER(aFlds[nCnt,1]) $ cKey
>         oEmpty.FieldsCount = oEmpty.FieldsCount + 1
>         DIMENSION oEmpty.FieldsDef[oEmpty.FieldsCount, 4]
>         oEmpty.FieldsDef[oEmpty.FieldsCount, 1] = aFlds[nCnt,1]
>         oEmpty.FieldsDef[oEmpty.FieldsCount, 2] = aFlds[nCnt,2]
>         oEmpty.FieldsDef[oEmpty.FieldsCount, 3] = aFlds[nCnt,3]
>         oEmpty.FieldsDef[oEmpty.FieldsCount, 4] = aFlds[nCnt,4]
>      ENDIF
>  ENDFOR
>  SELECT (cOldAlias)
>RETURN oEmpty
>
>