| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 839 人关注过本帖
标题:我把问题传到你的邮箱里了
只看楼主 加入收藏
xingehappy
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2004-4-14
收藏
 问题点数:0 回复次数:3 
我把问题传到你的邮箱里了

我把问题传到你的邮箱里了

2004-08-26 10:45
xingehappy
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2004-4-14
收藏
得分:0 

我又回頭去飛,去追.就算我追到最后只剩冰雪.天都為我傷悲.冷的愛快枯萎.任漫天風雪覆蓋我的心碎........
2004-08-26 10:45
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

查询时按部门排序,然后在读取数据时根据部门将数据进行累加

Dim 人事组取得价值 As Single Dim 人事组月折旧额 As Single Dim 管理组取得价值 As Single Dim 管理组月折旧额 As Single

While Not Rs.Eof If Rs("部门")="人事组" Then 人事组取得价值 = 人事组取得价值 + Rs("取得价值") 人事组月折旧额 = 人事组月折旧额 + Rs("月折旧额") ... ElseIf Rs("部门")="管理组" Then 管理组取得价值 = 管理组取得价值 + Rs("取得价值") 管理组月折旧额 = 管理组月折旧额 + Rs("月折旧额") ... End If ....... Rs.MoveNext

Wend

当然如果你的部门比较多的话,可以采用数组来存放这些数据。


天津网站建设 http://www./
2004-08-26 12:52
xingehappy
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2004-4-14
收藏
得分:0 

這種方法實現起來好麻煩啊!沒辦法,只有這樣了.先謝了!


我又回頭去飛,去追.就算我追到最后只剩冰雪.天都為我傷悲.冷的愛快枯萎.任漫天風雪覆蓋我的心碎........
2004-08-26 16:54
快速回复:我把问题传到你的邮箱里了
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032002 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved