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