以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态管理函数的问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130632)
--  作者：fangdejin
--  发布时间：2019/1/27 21:43:00
--  动态管理函数的问题？

下面的代码定义了一个简单的Sum函数：

Dim Code As string
Code = "Dim Val1 As Integer = 1" & vbcrlf
Code = Code & "Dim Val2 As Integer = 2" & vbcrlf
Code = Code & "Dim Sum As Integer = Val1 + Val2" & vbcrlf
Code = Code & "Return Sum"
Functions.Add("Sum",Code)
Functions.Complie()

这样我们就可以在其余地方调用此函数：

Functions.Execute("Sum")



这是帮助文档的自定义函数  结果提示 具有相同的项    错误代码：自定义函数SUM


不太懂 刚学。。。。。。。
--  作者：有点甜
--  发布时间：2019/1/27 23:21:00
--  

参考

 

Dim code = "msgbox(1)"
Functions.remove("test")
Functions.complie()
Functions.Add("test" ,code)
Functions.Complie()

Functions.Execute("test")