以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我在程序中直接运行代码块可不可以  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63015)
--  作者：ysq128
--  发布时间：2015/1/12 10:31:00
--  我在程序中直接运行代码块可不可以
我把一部份代码开放出来
程序中直接调用的运行代码块可不可以，类似自己做命令窗口。
--  作者：Bin
--  发布时间：2015/1/12 10:32:00
--  
用这个方法  http://www.foxtable.com/help/topics/1487.htm
--  作者：黄训良
--  发布时间：2015/1/12 11:34:00
--  

红色这句报错：应为语句结束！

Dim Code As String
code = "Dim Val1 As Integer "  &  vbcrlf
Code = Code  & "val1 = DataTables("人事").DataRows.Count" &  vbcrlf
Code =  Code  &  "Return val1"
Functions.Add("val1",Code)
Functions.Complie()

 
--  作者：Bin
--  发布时间：2015/1/12 11:34:00
--  
Code = Code  & "val1 = DataTables(""人事"").DataRows.Count" &  vbcrlf
--  作者：黄训良
--  发布时间：2015/1/12 11:56:00
--  

感谢Bin老师，可以了！

Functions.Remove("val1")
Dim Code As String
code = "Dim Val1 As Integer "  &  vbcrlf
Code = Code  & "val1 = DataTables(""人事"").DataRows.Count" &  vbcrlf
Code =  Code  &  "Return val1"
Functions.Add("val1",Code)
Functions.Complie()
msgbox(Functions.Execute("val1"))