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