报这个错误。代码如下。
try拦截不了这个错误啊。在循环里面执行的,数据比较多,不知道是具体哪个的问题。
怎么办?
Try
dr("整形后专利类型") = Functions.Execute("get专利类型从申请号_s",strTmp)
strTmp = dr("法律状态")
dr("整形后法律状态") = Functions.Execute("com法律状态整形",strTmp)
strTmp = dr("申请人")
dr("客户名称") = strTmp
dr("客户编码") = Functions.Execute("get客户编码",strTmp)
dr.save
Catch ex As Exception
msgbox(dr("申请号"))
msgbox(dr("客户编码"))
msgbox(dr("整形后法律状态"))
msgbox(dr("整形后专利类型"))
Return Nothing
End Try