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