>>>>>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 >>>>> >>>>> >>>>>FOR gnCount = 1 TO FCOUNT( ) >>>>> m.OldName = FIELD(gnCount) >>>>> m.NewName = ALLTRIM(EVALUATE(FIELD(gnCount))) >>>>> ******************************************************* >>>>> Try >>>>> ALTER TABLE (tt) RENAME COLUMN (m.OldName) TO (m.NewName) >>>>> Catch >>>>> Wait 'Oldname with error is '+m.oldname window >>>>> Wait 'Newname with error is '+m.newname window >>>>> Endtry >>>>> NEXT >>>>>>>>>>
>>>>>>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 >>>>>> >>>>>>>>>>>>
>>>>>>>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.