以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码的重复引用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143347)
--  作者：lgj716330
--  发布时间：2019/11/21 15:42:00
--  [求助]代码的重复引用
我有一段很长的代码，很多地方要用到，有什么办法我只写一次，然后在其他地方可以直接引用
--  作者：有点蓝
--  发布时间：2019/11/21 15:44:00
--  
放到自定义函数：http://www.foxtable.com/webhelp/topics/1486.htm
[此贴子已经被作者于2019/11/21 15:43:46编辑过]
--  作者：lgj716330
--  发布时间：2019/11/22 13:30:00
--  
帮助看得不是很明白，比如下面这段代码，在做查询统计的时候，很多窗口按钮中会用到同样的代码，要怎么写成函数，然后又怎么调用
Dim jb1 As New SQLJoinTableBuilder("查询表1","订单2009")
jb1.ConnectionName = "Sale"
jb1.AddTable("订单","产品ID","产品","产品ID")
jb1.AddTable("订单", "客户ID","客户","客户ID")
jb1.AddCols("产品名称","客户名称","日期", "数量","单价")
jb1.AddExp("金额","数量 * 单价") 
jb1.Filter = "客户名称 = \'红阳事业\'" 

Dim jb2 As New SQLJoinTableBuilder("查询表1","订单2010")
jb2.ConnectionName = "Sale"
jb2.AddTable("订单","产品ID","产品","产品ID")
jb2.AddTable("订单", "客户ID","客户","客户ID")
jb2.AddCols("产品名称","客户名称","日期", "数量","单价")
jb2.AddExp("金额","数量 * 单价") 
jb2.Filter = "客户名称 = \'红阳事业\'"

Dim jb3 As New SQLJoinTableBuilder("查询表1","订单2011")
jb3.ConnectionName = "Sale"
jb3.AddTable("订单","产品ID","产品","产品ID")
jb3.AddTable("订单", "客户ID","客户","客户ID")
jb3.AddCols("产品名称","客户名称","日期", "数量","单价")
jb3.AddExp("金额","数量 * 单价") 
jb3.Filter = "客户名称 = \'红阳事业\'"

jb1.Union(jb2) \'组合jb2
jb1.Union(jb3) \'组合jb3
jb1.Build()
--  作者：有点蓝
--  发布时间：2019/11/22 13:34:00
--  
新建一个函数，随便什么名称，如abc。把代码放入函数里

调用：
Functions.Execute("abc")