- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]自定义函数不会写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172131)
-- 发布时间：2021/9/24 21:38:00
-- [求助]自定义函数不会写
刚接触内部函数，因为项目中经常要计算销售额，我想把该功能做成自定义函数“xseSum”
“销售合同编号表”中每行有不重复的“销售合同编号”，对应“销售合同信息表”里的一条或几条记录，比方我想实现：单击“销售合同编号表”中任意一行记录，弹出提示该编号的所有销售额总和。
于是，我到内部函数中写：
Dim s As String = args(0)
Dim xseSum As Single = DataTables("销售合同信息表").Compute("sum(总价元)","销售合同编号" = "\'& s &\'")
Return xseSum
此主题相关图片如下：内部函数.jpg
再到“销售合同编号表”的currentchanged事件中写：
MessageBox.Show(Functions.Execute("xseSum",CurrentTable.Current("销售合同编号")))
结果弹出来都是0
-- 发布时间：2021/9/24 22:35:00
--
DataTables("销售合同信息表").Compute("sum(总价元)","销售合同编号= \'" & s & "\'")
-- 发布时间：2021/9/25 11:01:00
--
谢谢兄弟，原来是这里错了