哪里有Cell3.35自定义函数(多个参数)的例子

[hbuser]

哪里有Cell3.35自定义函数(多个参数)的例子
可否给我举个例子(VB)，我的邮箱：[e-mail]
谢

[Cell]

您好：
您看一下我们的VB借接口，其中有关于自定义函数的演示，在超级报表的演示工程中也有。

[osn]

sm1 = "函数名称:" & vbCrLf & _
" JE_NCYE ----年初余额" & vbCrLf & _
"函数格式:" & vbCrLf & _
" JE_NCYE(""科目编码"",""年"",""月"",""ASS1"",""ASS2"")"
ReDim p_ncs(5) As Integer
ReDim pd_ncs(5) As Integer
For i = 0 To 4
p_ncs(i) = 1
pd_ncs(i) = 1
Next i
rst1 = Cell1.DoAddUserFunctionEx("ACCOUNT函数", "JE_NCYE", 4, 5, p_ncs(0), pd_ncs(0), sm1)
If rst1 = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "DEMO-电子报表"

另一半：

onexecuteuserfuntion()
'接收参数：
For i = 0 To paranum - 1
para(i) = Cell1.DoFetchFuncParameter2(i)
Next
'组成数据访问字符串
...
rst.Open SQLselect, conn1
If rst.RecordCount > 0 Then
rst.MoveFirst
funcResult = rst.Fields(0).Value
Else
funcResult = 0
End If
rst.Close
Set rst = Nothing