CREATE TABLE New1 FREE (NEWQ C(10)) SELECT ttable1 nCntFields = AFIELDS(aFlds) FOR nCnt = 1 TO nCntFields IF LOWER(LEFT(aFlds[nCnt,1])) == "q" &&too few argument INSERT INTO New1 VALUES (aFlds[nCnt,1]) ENDIF NEXTthank you
>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 >