CLOSE all SET DATE BRITISH SET CENTURY on thisform.text11.Value=GETFILE('xls') IMPORT FROM (thisform.text11.value) TYPE xls use JUSTSTEM(thisform.text11.value) tt=JUSTSTEM(thisform.text11.value) CLOSE all USE (tt) excl Try *set step on 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 Catch Wait 'Oldname with error is '+m.oldname window Wait 'Newname with error is '+m.newname window Endtry 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) NEXT>I'm pretty sure that your problem is the name of the fields, and not the syntax. Try something like this
>Try > Alter table... >Catch > Wait 'Oldname with error is '+m.oldname window > Wait 'Newname with error is '+m.newname window >Endtry>Then you write down the wrong values, and tell me what they are.