【结贴】如何提高循环速度**

xhsoft

dsb_hz.DataSet.DisableControls;
  try
  dsb_hz.DataSet.Open;
  dsb_hz.dataset.First;
  while not dsb_hz.dataset.Eof do
  begin
    hzbh := dsb_hz.dataset.FieldByName('bh').AsString;
    dsb_jh.dataset.Open;
    dsb_jh.dataset.First;
    jhzt := dsb_jh.dataset.FieldByName('zcb').AsString;
    dsb_jh.DataSet.Locate('bh',hzbh,[]);
    begin
      dsb_hz.dataset.Edit;
      dsb_hz.dataset.FieldByName('zcb').AsString := jhzt;
      dsb_hz.dataset.Post;
      break;
    end;
    dsb_hz.DataSet.next;
  end;
  finally
  dsb_hz.DataSet.EnableControls;
  end;
  end;
这样写对吗,没有实现

xhsoft

?

shangxy

dsb_hz.DataSet.DisableControls;
  try
  dsb_hz.DataSet.Open;
  dsb_hz.dataset.First;
  while not dsb_hz.dataset.Eof do
  begin
    hzbh := dsb_hz.dataset.FieldByName('bh').AsString;
    dsb_jh.dataset.Open;
    dsb_jh.dataset.First;
   // jhzt := dsb_jh.dataset.FieldByName('zcb').AsString;
    dsb_jh.DataSet.Locate('bh',hzbh,[]);
    begin
      dsb_hz.dataset.Edit;
      dsb_hz.dataset.FieldByName('zcb').AsString :=dsb_jh.dataset.FieldByName('zcb').AsString;
      dsb_hz.dataset.Post;
      break;
    end;
    dsb_hz.DataSet.next;
  end;
  finally
  dsb_hz.DataSet.EnableControls;
  end;
  end;

xhsoft

为什么不能直接等于变量呢

shangxy

你那个变量不对，它没有经过过滤，确切说他始终是数据集中该字段的第一个值

xhsoft

哦,明白,结