[求助]自定义函数不会写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

刚接触内部函数，因为项目中经常要计算销售额，我想把该功能做成自定义函数“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

主题：[求助]自定义函数不会写