Question

Delphi2007 不同clientdataset之间的赋值

即怎么将cds1中的标志为1的所有结果 赋值给 cds2，顺便讲下怎么过滤Filtered

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
k:integer;
begin
//前提条件是ClientDataSet1、ClientDataSet2所打开的表的结构必须相同哦
while not ClientDataSet1.Eof do
begin
ClientDataSet2.Append;
for k:=0 to ClientDataSet1.FieldCount -1 do
ClientDataSet2.Fields[k].Value:=ClientDataSet1.Fields[k].Value;
ClientDataSet2.Post;
ClientDataSet1.Next;
end;
end;

追问

是不是可以直接 cds2.data:= cds1.data?

追答

这个不行，这样的话，两个ClientDataSet指向的是同一份数据表。

追问

cds1中的数据 我现在想根据后面的1 取得bz = 1 的所有数据 赋值给cds2  怎么弄啊 》？

追答

ClientDataSet1.Filter:='bz=1';
ClientDataSet1.Filtered:=true;