设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2172|回复: 3
打印 上一主题 下一主题

[其它] 在线急等,一个字段内的数据如何相乘!?

[复制链接]
跳转到指定楼层
1#
发表于 2006-11-24 21:41:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
各位高手,我想在一个视图中,把另外一个表中的一个字段的所有数据乘起来啊?比如说有收益率 字段,我想把该字段的所有收益率数据全部乘起来?access内置函数好像没有这个函数,只有类似sum,min这样的聚合函数?谢谢指教!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2006-11-24 23:25:00 | 只看该作者
把例子放上來.
3#
发表于 2006-11-25 00:52:00 | 只看该作者
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
4#
发表于 2010-7-1 16:05:08 | 只看该作者
试过了。不太行哦!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 01:26 , Processed in 0.095799 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表