hi,
thank you very much,
i try as under , the first time i get error message
(too few argument),via ignore i get the excellent result.
i try to run the code again i get error message
(alias ttable1 in not found)

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
NEXT

thank you

>O, now I understand :o))
>

>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
>