Office中国论坛/Access中国论坛

标题: 在线急等，一个字段内的数据如何相乘！？ [打印本页]

作者: ahnulxy 时间: 2006-11-24 21:41
标题: 在线急等，一个字段内的数据如何相乘！？
各位高手，我想在一个视图中，把另外一个表中的一个字段的所有数据乘起来啊？比如说有收益率字段，我想把该字段的所有收益率数据全部乘起来？access内置函数好像没有这个函数，只有类似sum,min这样的聚合函数?谢谢指教！

作者: fengrh 时间: 2006-11-24 23:25
把例子放上來.

作者: andymark 时间: 2006-11-25 00:52
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 时间: 2010-7-1 16:05
试过了。不太行哦！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)