我把问题传到你的邮箱里了
我把问题传到你的邮箱里了
查询时按部门排序,然后在读取数据时根据部门将数据进行累加
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
当然如果你的部门比较多的话,可以采用数组来存放这些数据。