Есть таблица, описывающая дерево:
kod char(10)
user char(6)
soder char(50)
parent char(6)

Требуется скопировать записи where user='xxxxxx' для user='yyyyyy', при этом поле kod д,б, уникально в нашем случае инкремент и, соответственно, обработано поле parent.

На fox'е это не проблема. А как сделать на SQL'е?

Станислав С...кий,

пардон, конечно parent C(10).
Автоинкремент - в данном случае значит, что каждый следующий код на 1 больше предыдущего, просто для удобства индексирования в свое время было принято решение таким поля давать тип Char. Поэтому значения поля код: '0000000001','0000000002',...
Проблема на самом деле одна: как в конструкции

Insert into file1 ... Select ... from file1 where user = 'xxxxxx'

получить правильные значения поля kod.

ВладимирТК,

мне нужно выбрать записи для user='xxxx' и записать их с user='yyyy'. При этом проблема - сформировать правильные коды новых записей. все остальное - замена parent'ов - дело десятое.

ВладимирТК,

есть записи:
kod user soder parent
000001 001001 запись 1
000002 001001 запись 1_1 000001
000003 001001 запись 1_2 000001
000004 001001 запись 2

и тд. Надо добавить:
000005 001002 запись 1
000006 001002 запись 1_1 000005
000007 001002 запись 1_2 000005
000008 001002 запись 2

Я тут поколдовал и вроде что-то получилось. Добавил комментарии и привожу реальное решение на реальных таблицах:

TEXT TO _comm TEXTMERGE NOSHOW PRETEXT 7
/* Получить следующий код пользователя из таблицы пользователей */
DECLARE @maxkod Char(6), @maxcode char(10)
SET @maxkod=(SELECT MAX(kod) FROM Users)
SET @maxkod=RIGHT('000000'+RTRIM(CAST(CAST(@maxkod as Int)+1 as Char(6))),6)

/* Добавим новую запись в таблице пользователей - зафиксируем полученный код */
INSERT INTO Users (kod, naim, parent, password, roles, short, photo, photo_exch, [order], postn, postn2, phone, win_name)
SELECT @maxkod, '<<ALLTRIM(Thisform.text1.Value)>>', parent, '', roles, '<<ALLTRIM(Thisform.text2.Value)>>', '', 0, [order], '','', '', '<<ALLTRIM(Thisform.text2.Value)>>')
where kod = '<<Thisform.text3.tag>>'

/* Скопируем список доступных таблиц */
INSERT INTO User_tab SELECT distinct @maxkod, [table], [t_right] FROM User_tab WHERE [user] = '<<Thisform.text3.tag>>'

/* Займемся рабочим местом пользователя
Пронумеруем встяавляемые записи (newuid) */
CREATE TABLE #tempKod (uid Int, code Char(10), newuid int identity(1,1))
INSERT INTO #tempkod (uid, code) SELECT sqluid, code FROM user_arm WHERE [user] = '<<Thisform.text3.tag>>'

/* Промежуточно сохраним рабочее место пользователя, добавив к нему нашу нумерацию */
Select User_arm.*, #tempkod.newuid, #tempkod.code oldcode, User_arm.parent_cod oldparent
into #tempkod2
from User_arm inner join #tempkod on User_arm.sqluid = #tempkod.uid

/* получим следующий код в таблице рабочих мест */
SET @maxcode=(SELECT MAX(code) FROM User_arm)
SET @maxcode=CAST(right(@maxcode,9) as Int)

/* Сформируем новые коды */
Update #tempkod2 set code='A'+right('000000000'+rtrim(cast(@maxcode+newuid as char(9))),9), [user]=@maxkod

/* Сформируем новых родителей */
Update #tempkod2 set parent_cod=a.code from (Select code, oldcode from #tempkod2) a where #tempkod2.oldparent = a.oldcode

/* Дозапишем полученное в таблицу рабочих мест */
INSERT INTO User_arm (arm_id, [code], naim, obj_kod, obj_param, parent_cod, tree_order, [user])
SELECT arm_id, [code], naim, obj_kod, obj_param, parent_cod, tree_order, [user] from #tempkod2

/* Зачистимся и вернем сформированнон рабочее место */
DROP TABLE #tempkod
drop table #tempkod2
Select * from User_arm WHERE [user] = @maxkod
ENDTEXT

Решение для mssql, но в принципе с миню изменениями пойдет и для fox'а. И вроде проще тех, что прописаны в примерах.