需要打开数据集来循环
var
I: Integer;
begin
DataSetTSSJJ1.LogChanges := False;
DataSetTSSJJ1.First;
while not DataSetTSSJJ1.Eof do
begin
DataSetTSSJJ1.Edit;
for I := 0 to DataSetTSSJJ1.Fields.Count - 1 do
if DataSetTSSJJ1.Fields[I].IsNull then
DataSetTSSJJ1.Fields[I].AsInteger := 0;
DataSetTSSJJ1.Post;
DataSetTSSJJ1.Next;
end;
end;