Question

对ACCESS数据表项目下的所有数据求和（列求和）及计数

向各位老师求助：
1、建立费用数据表：
ID: 日期: 费用:
1 09\01\15 1500
2 09\01\16 1200
3 09\01\17 1700
4 09\01\18 2100
5 09\02\10 1200
。 。 。
。 。 。
。 。 。
。 。 。
。 。 。
150 09\07\15 2500
2、建立任意窗体：
A、窗体中有文本框：截止当日费用支出共计（ ），对数据表中“费
用”列求和。
B、窗体中有文本框：截止当日费用支出次数（ ），对数据表中“费用”
支出次数计数。
3、条件要求：
A、每年的1月1日-12月31日，为数据范围，也就是说仅对当年的“费
用”求和及计数。
B、不要告诉我ID编号就可以当做计数，因为如果删除了一条或者N条
记录，ID编号还准么？
如上要需求哪位老师能帮我啊。最好帮我做个这样的库传上来。万分感谢。在线等。

Answer 1

建立费用表fy

连接数据库省略
2.A<% dim fyzh
sql="select * from fy"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
do while not rs.eof
fyzh=fyzh+rs("费用")
loop
rs.movenext
%>
B<% dim fyjs
sql="select * from fy"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
do while not rs.eof
fyjs=fyjs+1
loop
rs.movenext
%>
3A<% dim fyzh,ntime
sql="select * from fy "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
ntime=year(date())
do while not rs.eof
if ntime=year(rs("时间")) then
fyzh=fyzh+rs("费用")
end if
loop
rs.movenext
%>
B<% dim fyjs,ntime
sql="select * from fy "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
ntime=year(date())
do while not rs.eof
if ntime=year(rs("时间")) then
fyjs=fyjs+1
end if
loop
rs.movenext
%>

Answer 2

select sum(费用),count(ID) from table
where datediff(yyyy,日期,getDate()) = 0