以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问,如何执行某行列中存放的代码?  (http://foxtable.net/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("函数")