以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问,如何执行某行列中存放的代码?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115917)
--  作者：tennis
--  发布时间：2018/3/16 15:42:00
--  请问,如何执行某行列中存放的代码?
如题.
--  作者：有点甜
--  发布时间：2018/3/16 15:43:00
--  

如

 

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

 

Functions.remove("函数")
Dim Code As String
Code = "msgbox(123)"
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")
--  作者：tennis
--  发布时间：2018/3/16 16:11:00
--  
3Q!! 请问一大串的代码如何?
--  作者：有点甜
--  发布时间：2018/3/16 16:12:00
--  
以下是引用tennis在2018/3/16 16:11:00的发言：
3Q!! 请问一大串的代码如何?

 

多少代码都可以执行。但是动态编译需要时间，效率不高。
--  作者：tennis
--  发布时间：2018/3/16 16:16:00
--  
3Q!! 请问一大串的代码存于第一列(备注字段)中,要如动态执行第一列中的代码?
[此贴子已经被作者于2018/3/16 16:48:20编辑过]
--  作者：有点甜
--  发布时间：2018/3/16 17:14:00
--  

看红色代码，把要执行的代码赋值进去

 

Functions.remove("函数")
Dim Code As String
Code = "msgbox(123)"
Functions.Add("函数",Code)
Functions.Complie()
Functions.Execute("函数")