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

tt=JUSTSTEM(thisform.text11.value)
CLOSE all
USE (tt) excl

**i try tt.name,ot (tt.name) not works

**********************************************


lnFields=AFIELDS(laFields)
SELECT 0
CREATE TABLE qcombined1 (name c(LEN(tablename.name)),amt c(17),dedcode c(4)***error (tablename.name)