【结贴】怎样清空dataset中的数据**

liso

碰到一个情况，datagrid通过datasourse与dataset相连。
现要在一次查询后，先要清空datagrid和dataset中的数据，才能进行第二次查询。请问怎样清空数据。

ps，因为要实现添加查询的功能，就是在可能将第二次查询的结果与第一次查询合并起来显示，所以我没有用x3中常规的显示数据的方式。

shangxy

DataSet.EmptyDataSet这个不行么？

liso

最初由 shangxy 发布
[B]DataSet.EmptyDataSet这个不行么？ [/B]

试过了，不行

liso

最初由 shangxy 发布
[B]DataSet.EmptyDataSet这个不行么？ [/B]

我代码是这样的：

if CbAdd.Checked then
      begin
         CopyData_Add(sQuery,DataSetSetAdd,'Job_CarCD');
      end
      else
      begin
           DataSetSetAdd.EmptyDataSet;
           DataSetSetAdd.
           CopyData_Add(sQuery,DataSetSetAdd,'Job_CarCD');
      end;
       DataSource1.DataSet:=DataSetSetAdd;
     end;

我是要在这个红字的地方清空dataset。


copy_Data_Add函数是这样的：

procedure CopyData_Add(Source,Dest: TDataSet;MField:String);
Var
  I,J:Integer;
  ss:String;
begin
  if (Source =Nil) or (Dest = Nil) or (Source.Active = false) or
    (Dest.Active = False) then exit;
  FInserted:=True;
  Source.First;
  while not Source.Eof do begin
    if  Dest.Locate(MField,Source.FieldByName(MField).Asstring,[]) then
    begin
      Source.Next;
      continue;
    end;
    Dest.Insert;
    for I:=0 to Source.Fields.Count - 1 do
    begin
       ss:=Source.Fields[I].FieldName;
       J:=Dest.FieldList.Indexof(ss);
       if  J >= 0 then
         Dest.Fields[J].Assign(Source.Fields[I]);
    end;
    Dest.Post;
    Source.Next;
  end;
  FInserted:=False;
end;

shangxy

你先不用执行 CopyData_Add(sQuery,DataSetSetAdd,'Job_CarCD');这段代码，
你就用这个数据集DataSetSetAdd从数据库取出一些数据，然后在DataSetSetAdd.EmptyDataSet;看一下你的DataGrid是否是空的？

jiahaiminghr

楼主，请反馈。

lixy

由于长时间没有反馈，先结贴了。

有问题请开新贴。