如何使下一级自动向上一级汇总数据？谢谢

qjw9004

如：
将自动将代码01XX自动加计到01
id        flbh        flxz        ysje        jc        bz
58        01        火法冶炼系统        ￥0.00        1       
60        0101        精矿调浆间        ￥0.00        2       
64        0101001        土建        ￥2,376,000.00        3       
65        0101002        工艺设备及安装        ￥1,250,828.00        3       
67        0101003        结构件及管道、阀门、管件        ￥96,000.00        3       
79        02        湿法冶炼系统        ￥0.00        1       
80        0201        酸浸氰化系列        ￥0.00        2       
81        0201001        土建        ￥17,000,000.00        3       
87        0201002        酸浸设备        ￥4,256,066.00        3       
88        0201003        氰化提金设备        ￥4,568,599.00        3       
89        0201004        锌粉置换设备        ￥706,381.00        3       
90        0201005        金精炼设备        ￥1,429,680.00        3       

标红色的记录如何自动计算~~~
在此先谢谢各位了~~       

williamwangc

加个两列，然后用交叉查询不就可以了么？一个是系统，一个是大项目。

qjw9004

能否帮做个附，对交叉查询不什么了解，谢谢！~

todaynew

http://www.office-cn.net/forum.p ... 8%B5%D8%B7%D6%D4%DF

qjw9004

todaynew 发表于 2011-10-27 09:18
http://www.office-cn.net/forum.php?mod=viewthread&tid=97830&highlight=%D7%F8%B5%D8%B7%D6%D4%DF

你好！~~你做有太复杂了，我只是刚入门。
能否作个简单的呢？

todaynew

qjw9004 发表于 2011-10-27 13:01
你好！~~你做有太复杂了，我只是刚入门。
能否作个简单的呢？

qjw9004

别笑了
为这个已经纳闷好些天了~！

todaynew

qjw9004 发表于 2011-10-27 18:04
别笑了
为这个已经纳闷好些天了~！

SELECT ht_flxz.*, IIf(nz([ysje],0)<>0,[ysje],DSum("ysje","ht_flxz","flbh like '" & [flbh] & "*' and len(flbh)=7")) AS Sumysje
FROM ht_flxz
ORDER BY ht_flxz.flbh;

qjw9004

todaynew 发表于 2011-10-27 19:22
SELECT ht_flxz.*, IIf(nz([ysje],0)0,[ysje],DSum("ysje","ht_flxz","flbh like '" & [flbh] & "*' an ...

谢谢你！~~~
但有个问题让我纳闷了！
我用ASP网页代码读取表时，提示这样的错误~
Microsoft OLE DB Provider for ODBC Drivers '80040e14'
[Microsoft][ODBC Microsoft Access Driver] 表达式中 'nz' 函数未定义。
\htxt\xxx.asp, line 8

ASP网页代码为
<%
   dim conn   
   dim connstr
   connstr="DBQ="+server.mappath("../data.mdb")+";DefaultDir=;DRIVER={Driver do Microsoft Access (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr
  set rs=server.createobject("adodb.recordset")
  rs.open "select * from ht_flxz_aa",conn,1,3
  Do Until rs.EOF
     Response.Write rs("flxz")&"<br/>"
     rs.MoveNext
  Loop
  response.write rs
  rs.close
  conn.close
  set rs=nothing
  set con=nothing
%>
是什么原因呢？

todaynew

qjw9004 发表于 2011-10-27 21:28
谢谢你！~~~
但有个问题让我纳闷了！
我用ASP网页代码读取表时，提示这样的错误~

网页我没玩过，呵呵。