***The following small program will copy one field from ***Table1 to table2. Table2 is empty. close all select 1 use table1 go top select 2 use table2 do while not eof('table1') sele 1 memvari=fieldname && The name of filed which you want to copy skip sele 2 append blank replace fieldname with memvari loop enddo close all return