|
Hola Mando un procedimiento que hace lo que pides
procedure SacaNulos(DataSet: TDataSet);
var
i: integer;
begin
try
with DataSet do begin
edit;
for i := 0 to fields.count do begin
if fields[i].value = null then
if fields[i] is TNumericField then fields[i].value := 0
else if fields[i] is TStringField then fieldl[i].value :=''
else if fields[i] is TDateTimeField then
fields [i]:='1/1/1900';
end;
post;
end;
except end;
end;
|