Make sure that m.NewName is a legal field name, it must start with a character, and can not include spaces. And note that in your code, in the For-Next loop, you don't Add fields, you Rename them!

>thank you fro reply,
>Is m.NewName more than 10 characters?no
>
>i try without ALTER TABLE (TT) ADD COLUMN TXPNO C(19) && it works
>
>but still i need to add this fields via internal vfp code
>
>
>
>
>>Is m.NewName more than 10 characters?
>>
>>>hi all,
>>>
>>>i try this code before it works, i try it again i get error message syntax error
>>>
>>>

>>>thisform.text11.Value=GETFILE('xls')
>>>
>>>IMPORT FROM (thisform.text11.value) TYPE xls
>>>
>>>use JUSTSTEM(thisform.text11.value)
>>>tt=JUSTSTEM(thisform.text11.value)
>>>USE (tt) excl
>>>
>>>
>>>ALTER TABLE (TT) ADD COLUMN TXPNO C(19)
>>>ALTER TABLE (TT) ADD COLUMN YEARe C(6)
>>>ALTER TABLE (TT) ADD COLUMN INFTYPE C(2)
>>>ALTER TABLE (TT) ADD COLUMN INFDATE C(12)
>>>ALTER TABLE (TT) ADD COLUMN OFFCODE C(6)
>>>ALTER TABLE (TT) ADD COLUMN ENTRYID C(15)
>>>ALTER TABLE (TT) ADD COLUMN ENTDATE C(12)
>>>ALTER TABLE (TT) ADD COLUMN CONFFLAG C(3)
>>>ALTER TABLE (TT) ADD COLUMN CONFID C(12)
>>>ALTER TABLE (TT) ADD COLUMN CONFDATE C(12)
>>>
>>>replace TXPNO WITH THISFORM.TEXT1.Value
>>>replace YEARe WITH THISFORM.TEXT2.Value
>>>replace INFTYPE WITH THISFORM.TEXT3.Value
>>>replace INFDATE WITH THISFORM.TEXT4.Value
>>>replace OFFCODE WITH THISFORM.TEXT5.Value
>>>replace ENTRYID WITH THISFORM.TEXT6.Value
>>>replace ENTDATE WITH THISFORM.TEXT7.Value
>>>replace CONFFLAG WITH THISFORM.TEXT8.Value
>>>replace CONFID WITH THISFORM.TEXT9.Value
>>>replace CONFDATE WITH THISFORM.TEXT10.Value
>>>
>>>USE (tt) excl
>>>
>>>FOR gnCount = 1 TO FCOUNT( )
>>>   m.OldName =  FIELD(gnCount)
>>>   m.NewName = ALLTRIM(EVALUATE(FIELD(gnCount)))
>>>
>>>   *******************************************************
>>>   ALTER TABLE (tt) RENAME COLUMN (m.OldName) TO (m.NewName)&& syntax error
>>>next
>>>

>>>
>>>thank you
>>>
>>>thanks