pb判断null

171 阅读 0 评论 113 点赞

我是靠谱客的博主迷你花卷，这篇文章主要介绍pb判断null，现在分享给大家，希望可以做个参考。

$PBExportHeader$gf_isnull.srf
global type gf_isnull from function_object
end type
forward prototypes
global function any gf_isnull (any any_val, any any_mr)
end prototypes
global function any gf_isnull (any any_val, any any_mr);any la_ret,la_val
la_val=any_val
if isnull(any_val) then
if lower(ClassName(any_val))='string' then
la_ret=any_mr
else
la_ret=any_mr
end if
else
if lower(ClassName(any_val))='string' then
la_ret=trim(string(la_val))
else
la_ret=la_val
end if
end if
return la_ret
end function