【搞定】优化数据集程序**

Jsun2007

这个是一个数据集向另外一个数据集合中插入数据，是一个字段一个字段的复制运行起来太慢了，有什么方法改进吗
关键程序：

Jsun2007

程序如下：
procedure TCT.creatdataset();
var
lBiz,DStart,DEnd,PCName,Date: string;
I : integer;
begin

    if not DataSetCXSJ.Active then
       DataSetCXSJ.Open
     else
       DataSetCXSJ.Refresh;
    try
    DataSetBroker1.DataSet.Open;
    DataSetBroker1.DataSet.ReadOnly := false;
    DataSetBroker1.DataSet.First;
    DataSetCXSJ.first;
    while not DataSetCXSJ.Eof do
    begin
      Date := DataSetCXSJ.FieldByName('日期').AsString;
      PCName := DataSetCXSJ.FieldByName('批次号').AsString;
      DStart := DataSetCXSJ.FieldByName('批次开始时间').AsString;
      DEnd := DataSetCXSJ.FieldByName('批次结束时间').AsString;
      if DStart = '2007-05-12 21:45:00' then DStart := '2007-05-11 21:45:00';
      //DecodeDateTime(DateTimePicker1.Date);
      lBiz := 'Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\CXNF.Param';
      TGGHSK.SetParamValueString(Context,Date,lBiz);
      lBiz := 'Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\ZSGX.Param';
      TGGHSK.SetParamValueString(Context,PCName,lBiz);
      lBiz := 'Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\CXQSSJ_ZF.Param';
      TGGHSK.SetParamValueString(Context,DStart,lBiz);
      lBiz := 'Biz:\SCZYCX\DICT\QJGGCS.ParamGroup\CXZZSJ_ZZ.Param';
      TGGHSK.SetParamValueString(Context,DEnd,lBiz);

      if not DataSetCRSJJ.Active then
       DataSetCRSJJ.Open
      else
       DataSetCRSJJ.Refresh;

      DataSetBroker1.DataSet.Append;

      for i :=0 to DataSetCRSJJ.FieldCount - 1 do
      begin
           DataSetBroker1.DataSet.FieldByName(DataSetCRSJJ.Fields[I].FieldName).Value := DataSetCRSJJ.Fields[I].Value;
      end;

      DataSetBroker1.DataSet.Next;
      DataSetCXSJ.Next;
      DataSetCRSJJ.Close;
    end;
      DataSetBroker1.DataSet.ReadOnly := true;
    finally
   end;
end;

jiahaiminghr

没有什么更好的办法了。

Jsun2007

如果是一条记录直接插入速度是不是会更快呢

atiger

1、在循环前先DisableControls 数据集，循环后再EnableControls，
2、如果数据量比较大，那么用Query来做吧

这两个方法都可以参考这个帖子http://bbs.justep.com/forum.php?mod=viewthread&tid=10298

Jsun2007

两个数据集结构完全相同，应该可以直接把一个数据集的一条记录插入另一数据集中把

jiahaiminghr

可以尝试一下使用数据集的appendData赋值整个数据集
dataset1.AppendData(datset2.data);

或者
复制一条记录
dataset1.AppendRecord()

jiahaiminghr

楼主，还有问题吗？
没有就结贴了！

lixy

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

有问题请开新贴。