PB错误处理

//itemerror事件里出错处理

string ls_colname,ls_datatype
Boolean ab_msg = true
ls_colname = dwo.name
ls_datatype = dwo.coltype
if trim(data) = "" or isnull(data) then
    ab_msg = false //之前这里使用return 3，所以出现这个问题
end if

string datatype
datatype = left(trim(ls_datatype),4)
CHOOSE CASE datatype
    CASE "long"
        long null_num
        SetNull(null_num)
        if ab_msg then messagebox("ERROR","数据类型不匹配!请输入数值型数据，如：1，2，3，4...")
        This.SetItem(row,ls_colname,null_num)
        RETURN 3
    CASE "numb"
        int null_num1
        SetNull(null_num1)
        if ab_msg then messagebox("ERROR","数据类型不匹配!请输入数值型数据，如：1，2，3，4...")
        This.SetItem(row,ls_colname,null_num1)
        RETURN 3
    CASE "deci"
        decimal lde_num
        SetNull(lde_num)
        if ab_msg then messagebox("ERROR","数据类型不匹配!请输入数值型数据，如：1.00，3.14，6.89...")
        This.SetItem(row,ls_colname,lde_num)
        RETURN 3
    CASE "real"
        real null_num3
        SetNull(null_num3)
        if ab_msg then messagebox("ERROR","数据类型不匹配!请输入数值型数据，如：1，2，3，4...")
        This.SetItem(row,ls_colname,null_num3)
        RETURN 3
    CASE "int"
        integer null_num4
        SetNull(null_num4)
        if ab_msg then messagebox("ERROR","数据类型不匹配!请输入数值型数据，如：1，2，3，4...")
        This.SetItem(row,ls_colname,null_num4)
        RETURN 3
    CASE "date"
        date null_date
        SetNull(null_date)
        if ab_msg then messagebox("ERROR","数据类型不匹配!请输入日期型数据，如：2010-8-11 或者 2011/8/18")
        This.SetItem(row,ls_colname,null_date)
        RETURN 3
END CHOOSE

转自 http://topic.csdn.net/u/20110617/15/5c7dff4d-6852-4d89-9c81-4662425251f7.html