Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]函数弹出错误


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

主题：[求助]函数弹出错误
美女呀，离线，留言给我吧！
OKK
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00 		[求助]函数弹出错误  发帖心情 Post By：2019/5/5 11:14:00 [只看该作者]

使用动态函数 Add(Name,Code)

设置函数时，如果有错误，会弹出提示

能不能不弹出提示，或者修改弹出的提示内容，请问怎么修改？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
美女呀，离线，留言给我吧！
OKK
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00 		  发帖心情 Post By：2019/5/5 11:37:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：1557027353(1).png
图片点击可在新窗口打开查看



仍然是弹出原来的错误提示
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/5 11:50:00 [只看该作者]

 

[此贴子已经被作者于2019/5/5 11:52:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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()
 回到顶部
美女呀，离线，留言给我吧！
OKK
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/5 14:54:00 [只看该作者]

 

这个没办法......

 

 
 回到顶部
美女呀，离线，留言给我吧！
OKK
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00 		  发帖心情 Post By：2019/5/5 15:32:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
美女呀，离线，留言给我吧！
OKK
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00 		  发帖心情 Post By：2019/5/5 15:55:00 [只看该作者]

阻止弹出也没办法吗？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/5 15:59:00 [只看该作者]

以下是引用OKK在2019/5/5 15:55:00的发言：
阻止弹出也没办法吗？


 

没办法。
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询