Also make sure that you don't try to add a new field with the same name as an old field.

>Make sure that m.NewName is a legal field name, it must start with a character? i have fields as f51,one1,fifi5 another fields is chracters lesthan 10.
>can not include spaces? sure
>i have no problem with excel sheet fields, if i remove ... alter... it works
>
>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)
>
>
>>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