参考
var
i: integer;
begin
dsbRYXX.DataSet.DisableControls;
dsbRYXX.DataSet.First;
try
for i := 0 to dsbRYXX.DataSet.RecordCount do
begin
dsbRYXX.DataSet.Edit;
dsbRYXX.DataSet.FieldByName('Select').AsInteger := 0;
dsbRYXX.DataSet.Next;
end;
finally
dsbRYXX.DataSet.EnableControls;
dsbRYXX.DataSet.First;
end;
end;