LPARAMETERS curtable, oldtable LOCAL old,cur,afieldname,afieldtype,afieldsize,zfieldtoadd old = FCOUNT(oldtable) cur = FCOUNT(curtable) SELECT (curtable) = AFIELDS(aTblStr,(curtable)) DO WHILE old <= cur imp = imp + 1 afieldname = aTblStr(imp,1) afieldtype = aTblStr(imp,2) afieldsize = aTblStr(imp,3) zfieldtoadd = afieldname + " " + afieldtype + ; "(" + LTRIM(STR(afieldsize)) + ")" SELECT (oldtable) ALTER TABLE (oldtable) add column &zfieldtoadd ENDDO SELECT (curtable) INSERT INTO (curtable) SELECT * FROM (oldtable)