CREATE TABLE NewTable FREE (NEWQ C(10)) SELECT YourTableWithQfieldnames nCntFields = AFIELDS(aFlds) FOR nCnt = 1 TO nCntFields IF LOWER(LEFT(aFlds[nCnt,1])) == "q" INSERT INTO NewTable VALUES (aFlds[nCnt,1]) ENDIF NEXT