- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]函数弹出错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134726)
-- 发布时间：2019/5/5 11:14:00
-- [求助]函数弹出错误
使用动态函数 Add(Name,Code)
设置函数时，如果有错误，会弹出提示
能不能不弹出提示，或者修改弹出的提示内容，请问怎么修改？
-- 发布时间：2019/5/5 11:16:00
--
参考
try
Dim Code As String
Code = "Dim Val1 As Integer = a" & vbcrlf
Functions.Add("Sum",Code)
Functions.Complie()
catch ex As exception
msgbox("出错")
End try
-- 发布时间：2019/5/5 11:37:00
--
此主题相关图片如下：1557027353(1).png
仍然是弹出原来的错误提示
-- 发布时间：2019/5/5 11:50:00
--
[此贴子已经被作者于2019/5/5 11:52:20编辑过]
-- 发布时间：2019/5/5 11:58:00
--
逻辑错误，可以捕捉，如
Functions.remove("Sum")
Dim Code As String
code &= "try" & vbcrlf
Code &= "Dim Val1 As Integer = ""a""" & vbcrlf
code &= "catch ex as exception" & vbcrlf
code &= "msgbox(123)" & vbcrlf
code &= "end try"
Functions.Add("Sum",Code)
Functions.Complie()
Functions.Execute("sum")
这种错误无法捕捉
Functions.remove("Sum")
Dim Code As String
Code = "Dim Val1 As Integer = a" & vbcrlf
Functions.Add("Sum",Code)
Functions.Complie()
-- 发布时间：2019/5/5 14:36:00
--
Dim dd As String = "if 第一列 = d1 then"
Functions.remove("sum")
Dim Code As String
code &= "try" & vbcrlf
Code &= dd & vbcrlf
code &= "catch ex as exception" & vbcrlf
code &= "msgbox(123)" & vbcrlf
code &= "end try"
Functions.Add("sum",Code)
Functions.Complie()
有没办法抓上面的，把原来的提示改为提示123
-- 发布时间：2019/5/5 14:54:00
--
这个没办法......
-- 发布时间：2019/5/5 15:32:00
--
-- 发布时间：2019/5/5 15:55:00
--
阻止弹出也没办法吗？
-- 发布时间：2019/5/5 15:59:00
--
以下是引用OKK在2019/5/5 15:55:00的发言：
阻止弹出也没办法吗？
阻止弹出也没办法吗？
没办法。