delphi 7 判斷是否為零函數[@more@]function is_null(col:string ):real;
begin
if adodm.CD_search.FieldByName(col).IsNull then
begin
result :=0 ;
end
else
begin
result:=adodm.CD_search.FieldValues[col];
end;
end;
begin
if adodm.CD_search.FieldByName(col).IsNull then
begin
result :=0 ;
end
else
begin
result:=adodm.CD_search.FieldValues[col];
end;
end;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/729024/viewspace-1042418/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/729024/viewspace-1042418/