<!--[if gte mso 9]><xml> </xml><![endif]--> 2.cds1.cds1.cds,如果沒有則添加
[code delphi]
var data:array of string; i:Integer;
begin
SetLength(data,1000);
while not ClientDataSet1.Eof do
begin
ClientDataSet1.First ;
ClientDataSet2.First ;
for i := 1 to ClientDataSet2.RecordCount do
begin
data[i]:=ClientDataSet2.FieldByName('名称').AsString ;
ClientDataSet2.Next ;
end;
if ClientDataSet1.FieldByName('名称').AsString=data[i] then
ClientDataSet1.FieldByName('性别').AsString:='男';
Next ;
end;

end;
----------------------------------------------
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

怎麼感覺跟這篇差不多....
http://delphi.ktop.com.tw/board.php?cid=30&fid=1498&tid=106555





===================引 用 zhouying82 文 章===================
2.cds1.cds1.cds,如果沒有則添加
[code delphi]
var data:array of string; i:Integer;
begin
SetLength(data,1000);
while not ClientDataSet1.Eof do
begin
ClientDataSet1.First ;
ClientDataSet2.First ;
for i := 1 to ClientDataSet2.RecordCount do
begin
data[i]:=ClientDataSet2.FieldByName('名称').AsString ;
ClientDataSet2.Next ;
end;
if ClientDataSet1.FieldByName('名称').AsString=data[i] then
ClientDataSet1.FieldByName('性别').AsString:='男';
Next ;
end;

end;
----------------------------------------------
[/code]