VB中汇总的程序编码，请高手帮忙，谢谢

显示全部楼层 · 2010-9-26 00:55:07

问题：设备类别设备名称购置日期原值净值运行小时
土方机械挖掘机 1999年 1000000 38000 12000
石方机械钻机 1998年 580000 12000 10000
路面机械压路机 2002年 340000 6000 8500
石方机械凿岩机 2005 50000 12000 2300
土方机械装载机 2000年 240000 4000 7800
土方机械推土机 2008年 780000 600000 1200
路面机械平地机 2004年 320000 78000 6500
按设备类别汇总后出现
设备类别总原值总净值总运行小时
土方机械 2020000 642000 21000
石方机械 630000 24000 12300
路面机械 660000 84000 15000
请高手帮忙。
请各位高手出手，不吝赐教，如采纳，再加赠50积分

千问 · 2010-9-26 00:55:07

这个比较简单的，假如你上面那些原始数据存在一个文本文件1.txt中1、首先用Open逐行读出（如第一行是“土方机械挖掘机 1999年 1000000 38000 12000”）2、用Split函数将每一行都以空格为界分别拆散到一个数组中：如C(0)-C(5)）3、判断各数组的下标位的值（如判断C(0)=“土方机械”），求下标位处值相同（都等于“土方机械”）的对应如C(3)、C(4)、C(5)的和即可∑C(3)、∑C(4)、∑C(5)

千问 · 2010-9-26 00:55:07

如果你这些数据是保存在数据库里面，可以用下面的sql语句得到你要的结果，VB代码就是只要针对该查询读取数据就行了。SELECT 设备类别, sum(原值) AS 原值1, sum(净值) AS 净值1, sum(运行小时) AS 运行小时1 FROM t GROUP BY 设备类别;