在线急等，一个字段内的数据如何相乘！？

ahnulxy

各位高手，我想在一个视图中，把另外一个表中的一个字段的所有数据乘起来啊？比如说有收益率 字段，我想把该字段的所有收益率数据全部乘起来？access内置函数好像没有这个函数，只有类似sum,min这样的聚合函数?谢谢指教！

fengrh

把例子放上來.

andymark

try:

Function Sz(MyFild As String, MyTable As String) As Double
'MyFild 为相乘的字段,MyTable为myfild所在的表
'用法:Call Sz("rice", "A")

Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim I As Double
Dim Sql As String
Set Conn = CurrentProject.Connection
Sql = "select " + MyFild + " from " + MyTable + ""
Rs.Open Sql, Conn, adOpenDynamic, adLockOptimistic
I = 1
If Rs.EOF Then
   Sz = 0
   Exit Function
End If

Do While Not Rs.EOF
   I = I * Rs.Fields(0)
   Rs.MoveNext
Loop

Sz = I

Set Rs = Nothing
Set Conn = Nothing

End Function

chilien

试过了。不太行哦！