var
sys,lc,gn,gnurl,gw,gwurl :string;
begin
datasetbroker1.DataSet.First;
while not datasetbroker1.DataSet.Eof do
begin
sys := datasetbroker1.DataSet.FieldByName('xtmc').AsString;
lc := datasetbroker1.DataSet.FieldByName('lcmc').AsString;
gn := datasetbroker1.DataSet.FieldByName('gnmc').AsString;
gnurl := datasetbroker1.DataSet.FieldByName('gnid').AsString;
datasetbroker2.DataSet.First;
while not datasetbroker2.DataSet.Eof do
begin
gw := datasetbroker2.DataSet.FieldByName('sqgw').AsString;
gwurl := datasetbroker2.DataSet.FieldByName('gwurl').AsString;
//添加记录
datasetbroker3.DataSet.Append;
datasetbroker3.DataSet.FieldByName('sqgw').AsString := gw;
datasetbroker3.DataSet.FieldByName('gnmc').AsString := gn;
datasetbroker3.DataSet.FieldByName('xtmc').AsString := sys;
datasetbroker3.DataSet.FieldByName('lcmc').AsString := lc;
datasetbroker3.DataSet.FieldByName('gnid').AsString := gnurl;
datasetbroker3.DataSet.FieldByName('gwurl').AsString := gwurl;
datasetbroker3.DataSet.Post;
datasetbroker2.DataSet.Next;
end;
datasetbroker1.DataSet.Next;
end;
end;
手工添加可以保存,有上述代码添加就出错
上面的dataset都是同一张表 |