以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自定义动态函数问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144841)

--  作者:xa139
--  发布时间:2019/12/31 12:51:00
--  自定义动态函数问题

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")


可以将专业报告里的字符定义做成 这种吗,在函数里 生成动态命令 在报表里生成吗,例如

Dim Code As string
Code
 = "Dim rtitle As New prt.RenderText " & vbcrlf
Code
 = Code & ".Text = ""苏州精准医疗科技有限公司""" & vbcrlf
Code
 = Code & "x=val(doc.PageSetting.Width)/2 - val(.Width)/2" & vbcrlf
 
Functions.Add(
"pr",Code)
Functions.Complie(pr
)


 

 


--  作者:有点蓝
--  发布时间:2019/12/31 13:45:00
--  
只是执行代码,没有处理返回值,当然没有反应呀

msgbox(Functions.Execute("Sum"))

函数里面的代码要能够完成一个相对独立的功能。就行生产线一样,把源材料(传入的参数值)见过一系列的加工(执行函数里的代码),最后得到成品或者半成品(输出结果)