SELECT mutable nFields = AFIELDS(aFlds) lcFields = "" FOR iField = 1 TO nFields IF aFlds[iField,1] = "D_" lcFields = lcFields+","+aFlds[iField,1] ENDIF ENDFOR IF EMPTY(lcFields) MESSAGEBOX("No Fields Found") ELSE lcSql = "SELECT " + SUBSTR(lcFields,2) + " FROM mutable INTO CURSOR myCursor READWRITE &lcSql ENDIF>Hi all,