Foxtable(狐表)用户栏目专家坐堂 → 捕获错误事件


  共有2380人关注过本帖树形打印复制链接

主题:捕获错误事件

帅哥哟,离线,有人找我吗?
304376480
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:339 积分:3760 威望:0 精华:0 注册:2017/9/7 15:20:00
捕获错误事件  发帖心情 Post By:2022/3/5 17:57:00 [只看该作者]

老师您好!
我自定义函数联网获取编号,如果网络中断的话会弹出报错窗口,我想要的是:没有获取到ID就直接返回空值,不报错!

问题是代码无法在BeforeShowErrorMessage事件里判断 错误事件的名称?
   e.Event 是空值,要怎么处理?

Dim CompanyID As String = Args(0)'ID
Dim TableName As String = Args(1)'表名
Dim Fmat As String = Args(2)'格式如:"000"
Try
    Dim hc As new HttpClient("http:\\127.0.0.1\CodeTable.htm")
    hc.FormData.Add("CompanyID",CompanyID)
    hc.FormData.Add("TableName",TableName)
    Dim max As Integer = hc.GetData()
    Return Format(max,Fmat)
Catch ex As Exception
    Return ""
End Try

显示错误详情:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.5.29.1
错误所在事件:
详细错误信息:
如果设置 ContentLength>0 或 SendChunked==true,则必须提供请求正文。  在 [Begin]GetResponse 之前通过调用 [Begin]GetRequestStream,可执行此操作。



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/6 19:58:00 [只看该作者]

Dim CompanyID As String = Args(0)'ID
Dim TableName As String = Args(1)'表名
Dim Fmat As String = Args(2)'格式如:"000"
Try
    Dim hc As new HttpClient("http:\\127.0.0.1\CodeTable.htm")
    hc.FormData.Add("CompanyID",CompanyID)
    hc.FormData.Add("TableName",TableName)
    Dim res As string= hc.GetData(true)
dim max as integer
if integer.TryParse(res,max)
    Return Format(max,Fmat)
else
     Return ""
end if
Catch ex As Exception
    Return ""
End Try

 回到顶部