以文本方式查看主题

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

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