Office中国论坛/Access中国论坛

标题: 求助，关于ACCESS报表求和的问题 [打印本页]

作者: zenghuabiao 时间: 2006-6-16 18:30
标题: 求助，关于ACCESS报表求和的问题
有和求和的问题捆扰了我很久，请各位大虾帮帮

----------------------------------------------------------------------------

表1：

ID    数字    是/否

1       23       yes

2       58       yes

3       34       no

4       22       yes

5       12       no

----------------------------------------------------------------------------

下面我想实现的是在报表中求和的问题

---------------------------------------------------------------------------

报表1：

条件是yes的和是：103

条件是no的和是：46

--------------------------------------------------------------------------------

谢谢..................!

[此贴子已经被作者于2006-6-16 10:32:00编辑过]

作者: fannky 时间: 2006-6-16 19:01
SELECT DISTINCTROW Sum(iif([是/否]="yes",[数字])) as yes from 表

SELECT DISTINCTROW Sum(iif([是/否]="no",[数字])) as no from 表

[此贴子已经被作者于2006-6-16 11:02:12编辑过]

作者: fan0217 时间: 2006-6-16 19:09
使用DSum 函数

作者: zenghuabiao 时间: 2006-6-16 23:05
还是不明白啊，能不能具体点？

作者: zenghuabiao 时间: 2006-6-17 02:51
上面的2楼的方法我就是不会啊，，，5555。帮帮忙说具体一点啊！谢谢！

3l楼的方法我用了一下感觉不错，很简单！

刚才我还用别的方法实现了，可是太麻烦了！

Private Sub Report_Open(Cancel As Integer)
Dim sngStart As Single, sngEnd As Single
Dim sngElapsed As Single, count As Integer
Dim rs As ADODB.Recordset
Dim sum As Integer
Set rs = New ADODB.Recordset

rs.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
sngStart = Timer
sum = 0
For count = 1 To rs.RecordCount
If rs("是/否") = True Then
sum = sum + rs("数字")
rs.MoveNext
ElseIf rs("是/否") = False Then
kum = kum + rs("数字")
rs.MoveNext
End If
Next

Label48.Caption = sum
Label49.Caption = kum

End Sub

[此贴子已经被作者于2006-6-16 19:02:46编辑过]

作者: zhengjialon 时间: 2006-6-17 03:36
你在帮助中查一下DSUM函数的用法,很简单就可以实现的.

作者: fannky 时间: 2006-6-17 17:09

上面的2楼的方法我就是不会啊，，，5555。帮帮忙说具体一点啊！谢谢！

SQL直接指定数据源而已，在SQL查询语句中可以使用条件判断语句的。不过用DSUM()更简单方便些，了解这种方法对查询设计有好处的

SELECT DISTINCTROW 表.是/否,Sum(iif([是/否]="yes",[数字])) as yes,Sum(iif([是/否]="no",[数字])) as no from 表

可以直接用此SQL作为你窗体的数据源

作者: nxjswt 时间: 2006-6-17 21:32

以下是引用fannky在2006-6-17 9:09:00的发言：

上面的2楼的方法我就是不会啊，，，5555。帮帮忙说具体一点啊！谢谢！

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