主题：自定义函数

我做了一个自定义函数的例子，报错是什么原因？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自定义函数.foxdb

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自定义函数.foxdb

我编写一个计算列值求和的函数，怎么做？比如，如果“项目列”行值是资产合计，那么资产合计所在行的期初余额的值就等于 流动资产和非流动资产所行的期初余额合计，怎么写代码？

Dim jisuanziduan As String  = Args(0)
Dim jisuanhangzhi As String  = Args(1)
Dim quzhiziduan As String  = Args(2)
Dim jisuanzhi As Double  = Args(3)
Dim quzhiziduanzhi As String  = Args(4)
If e.DataRow.name = "jisuanziduan" AndAlso e.DataRow("jisuanziduan") = "jisuanhangzhi" Then
    For i As Integer = 4 To Args.Length - 1
        jisuanzhi = jisuanzhi + e.DataTable.find("quzhiziduan = Args(i)" )
    Next
End If
Return jisuanzhi

编制以上自定义函数的代码是为了实现3楼的功能，但是自定义函数不能使用e.参数，因此不知道该怎么写了。

Dim jisuanziduan As String  = Args(0)
Dim jisuanhangzhi As String  = Args(1)
Dim quzhiziduan As String  = Args(2)
Dim jisuanzhi As Double  = Args(3)
Dim quzhiziduanzhi As String  = Args(4)
If e.DataRow.name = "jisuanziduan" AndAlso e.DataRow("jisuanziduan") = "jisuanhangzhi" Then
    For i As Integer = 4 To Args.Length - 1
        jisuanzhi = jisuanzhi + e.DataTable.find("quzhiziduan = Args(i)" )（“quzhiziduan”）4楼代码这行写错了
    Next
End If
Return jisuanzhi

编制以上自定义函数的代码是为了实现3楼的功能，但是自定义函数不能使用e.参数，因此不知道该怎么写了。

 回复5楼，你的e参数，可以在调用函数的时候，直接传递进去的啊。

 

 然后再在函数里获取

 

Dim e = args(0)

6楼没有办法在自定义函数中使用呀?7楼说的意思我不明白做，请你把6楼的函数按7楼思路给编写一下吧。

上传实例测试

 

调用abc函数

Functions.Execute("abc", e)

 

-------------

 

定义abc函数

Dim e = args(0)