如下代码
begin
dsb_hz.DataSet.DisableControls;
try
dsb_hz.DataSet.Open;
dsb_hz.dataset.First;
while not dsb_hz.dataset.Eof do
//for ii := 0 to dsb_hz.DataSet.RecordCount do
begin
hzbh := dsb_hz.dataset.FieldByName('bh').AsString;
dsb_jh.dataset.Open;
dsb_jh.dataset.First;
while not dsb_jh.dataset.Eof do
// for jj := 0 to dsb_jh.dataset.RecordCount do
begin
jhbh := dsb_jh.dataset.FieldByName('bh').AsString;
jhzt := dsb_jh.dataset.FieldByName('zcb').AsString;
if hzbh= jhbh then
begin
dsb_hz.dataset.Edit;
dsb_hz.dataset.FieldByName('zcb').AsString := jhzt;
dsb_hz.dataset.Post;
break;
end;
dsb_jh.dataset.Next;
end;
dsb_hz.DataSet.next;
end;
finally
dsb_hz.DataSet.EnableControls;
end;