以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态管理函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91076)
--  作者：有点蓝
--  发布时间：2016/9/28 20:24:00
--  
1、没有必要也不能先在内部函数里新建一个函数取名sum

2、第一次添加过后，第二次重新编译同名的需要先移除

Functions.Remove("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()