以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  捕获错误事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175464)
--  作者：304376480
--  发布时间：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，可执行此操作。
--  作者：有点蓝
--  发布时间：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