主题：自定义函数

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

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

点击浏览该文件:自定义函数.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.参数，因此不知道该怎么写了。

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

如例子中的表C，我想实现对相关合计行的计算，流动资产合计、非流动资产合计、流动负债合计、非流动负债合计、负债合计、净资产合计、负债和净资产合计

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

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

希望用自定义函数的形式实现，因为行的位置会经常发生变动

我是想解决表C中的问题

刚才发错了，这个例子的C表中

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

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

17楼的代码求合计已经没有问题了，减：坏账准备、累计折旧、累计摊销还不行，如例子中的资产负债

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

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