Question

asp+access如何对数组的同一位置进行求和？

在一个表中有两个字段，第一个是由产品名称组成的数组字段cpmc=（a,b,c,d,......），第二个字段是由产品销售量组成的数组字段cpxsl=（1,3,5,7,......），现在要对同一种产品的销售量进行汇总，比如统计a这种产品的所有销售量，请问asp代码应该怎么写？

Answer 1

Dim Cpmc_arr,Cpxsl_arr,i,R,X
'----------------------------------
' 取出记录中的记录条数.打开数据库过程省略
'----------------------------------
If Not (rs.bof and rs.eof) Then
    Do While Not rs.eof
        Cpmc=rs("Cpmc") '取记录
        Cpxsl_arr=rs("Cpxsl_arr") '取记录
        Cpmc_arr=Split(Cpmc,",") '分割字串
        Cpxsl_arr=Split(Cpxsl_arr,",")
'----------------------------------
'必须保证你的产品字串数组成员数与销量数组成员数相同
'哪怕是没有销售量的产品也必须填写0
'----------------------------------
        R=Ubound(Cpmc_arr) '取出成员数
        For i=0 To R
            If Cpmc_arr(i)="a" Then '找出想要统计的产品在数组中的位置
               X=Clng(X)+Clng(Cpxsl_arr(i)) '最后的X就是总销售量
            End If
        Next
        rs.movenext
    Loop
End If

追问

调试成功，但是我需要的不是总销售量，而是单独每种产品的合计销售量哦，比如产品a的合计销售量，应该怎么写呢？谢谢

追答

你要的是,所有的产品销售量分别全部都汇总吧?

追问

不是的，是要按照每种产品单独汇总，请问应该怎么写呢？