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

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

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

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