Foxtable(狐表)用户栏目专家坐堂 → [求助]动态编译函数问题


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

主题:[求助]动态编译函数问题

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
[求助]动态编译函数问题  发帖心情 Post By:2017/3/13 16:51:00 [显示全部帖子]

   ‘’‘如果代码有错误,无法捕获错误。

求助大家,谢谢

 

 try
        Dim fun As String =  "QJDM" & k  ''函数名 = 全局代码+键值
        Functions.Remove(fun)
        Dim Code As String = drp_dm.Value
        Functions.Add(fun, Code)
        Functions.Complie()
        ' Functions.Execute(fun)
    catch ex As exception
        e.Form.Text = e.Form.Name
        MessageBox.Show("代码编译失败,请检查代码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
        Return
    End try


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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2017/3/14 9:13:00 [显示全部帖子]

以下是引用有点蓝在2017/3/13 17:17:00的发言:

试试设置这个事件

http://www.foxtable.com/webhelp/scr/2655.htm

 

Event: 字符型,返回发生错误的事件名称
如何指定某一特定的事件名称,如:窗口2的按钮1的单击事件,

 


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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2017/3/14 14:21:00 [显示全部帖子]

以下是引用有点蓝在2017/3/14 9:27:00的发言:
msgbox(Event)弹出看看,这里有就有,没有就没有办法的

直接没弹出对话框

 

想实现:动态编译一段代码,如果代码有错则返回False。

[此贴子已经被作者于2017/3/14 14:21:38编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2017/3/16 10:06:00 [显示全部帖子]

以下是引用有点色在2017/3/14 16:43:00的发言:

变通处理下吧,将就还是可以用的。

 

计划1

 

If ShowAppWindow("错误",1) Then
    ShowAppWindow("错误",5)
    vars("成功") = False
    MyTimers("计划1").Enabled = False
End If

 

调试代码

 

vars("成功") = True
Dim fun As String =  "test"
Functions.Remove(fun)
Dim Code As String = "dim 123 as string = 123"
Functions.Add(fun, Code)
MyTimers("计划1").Enabled = True
Functions.Complie()
MyTimers("计划1").Enabled = False
msgbox(vars("成功"))

测试时发现:错误提示框要闪一下

 


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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2017/3/16 11:11:00 [显示全部帖子]

上述问题已解决。

 

求解一新的问题:在动态编译函数时,当第一个函数编译错误后,后面所有的函数编译都提示第一个函数的错误信息,无法编译,注,后面的函数代码是正确的。


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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2017/3/16 13:41:00 [显示全部帖子]

谢谢

 回到顶部