//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，所以出現(xiàn)這個問題
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","數(shù)據(jù)類型不匹配!請輸入數(shù)值型數(shù)據(jù)，如：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","數(shù)據(jù)類型不匹配!請輸入數(shù)值型數(shù)據(jù)，如：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","數(shù)據(jù)類型不匹配!請輸入數(shù)值型數(shù)據(jù)，如：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","數(shù)據(jù)類型不匹配!請輸入數(shù)值型數(shù)據(jù)，如：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","數(shù)據(jù)類型不匹配!請輸入數(shù)值型數(shù)據(jù)，如：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","數(shù)據(jù)類型不匹配!請輸入日期型數(shù)據(jù)，如：2010-8-11 或者 2011/8/18")
??????? This.SetItem(row,ls_colname,null_date)
??????? RETURN 3
END CHOOSE

轉(zhuǎn)載于:https://www.cnblogs.com/youyoutianxia/p/3184203.html

總結(jié)

以上是生活随笔為你收集整理的PB错误处理的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。