ID号和PARENT会变化
故不能单纯复制数据还要将ID和PARENT结构关系复制到目标表
因此我们用递归操作
由于 myquery
数据会变动我们要实时创建myquery 下面是 delphi tree 从
个表复制到另个表 递归源码: Procedure Tfrm_SysDepasManager.CopyTree(socParent, desParent:
eger); //树递归复制过程 Var
myquery: TADOQuery;
mysoc, mydes:
eger; Begin
myquery := Tadoquery.Create(Nil);
Try
myquery.Connection := frmdata.ADOConnection1;
myquery.Active := false;
myquery.SQL.Clear;
myquery.SQL.Add('select * from LCConstDepa where parent=' +
tostr(socParent)); myquery.Active := true;
//插记录
While Not myquery.Eof Do
Begin
mysoc := myquery.FieldByName('ID').AsInteger;
ReDataSet2.Append;
ReDataSet2.FieldByName('shlid').AsInteger := Syspublic.LoginSchoolID;
ReDataSet2.FieldByName('name').AsString := myquery.FieldByName('name').AsString;
ReDataSet2.FieldByName('pinyin').AsString := myquery.FieldByName('pinyin').AsString;
ReDataSet2.FieldByName('parent').AsInteger := desParent;
ReDataSet2.Post;
mydes := ReDataSet2.FieldByName('ID').AsInteger;
CopyTree(mysoc, mydes);
myquery.Next;
End;
Finally
myquery.Free;
End;
End;
最新评论