汇总语句总是不对 帮忙啊

shitou1ge

图片中zzz  为主机　　zzz=zzz\001+zzz\003+zzz\11+zzz\12   可是我的总是没有数字显示　　倒底是咋回事　小妹请大家帮忙


Private Sub 主机统计()
  Dim jilu As Long, i As Long, j As Long, BBB As String
  Dim AAA As Long, sum
  
    DoCmd.OpenForm "定额明细总表1", , , , , acHidden
Forms!定额明细总表1.Requery
  jilu = DCount("cpbm", "汇总表")

  For i = 1 To jilu
   If IsNull(Forms!定额明细总表1!CPLX) Then
    Else
        If Forms!定额明细总表1!CPLX = "主机" Then
           AAA = Forms!定额明细总表1!编号
           BBB = Forms!定额明细总表1!CPBM

        
            sum = 0

            DoCmd.GoToRecord , "定额明细总表1", acFirst
            For j = 1 To jilu
      If (Forms!定额明细总表1!CPLX = "组件" Or Forms!定额明细总表1!CPLX = "零件") Then
　　　　If Forms!定额明细总表1!CPBM Like BBB & "*" And Len(Forms!定额明细总表1!CPBM) < 8 Then
　　　　　　　sum = sum + Forms!定额明细总表1!CLGYZJE
     　　　End If
        End If
              DoCmd.GoToRecord acDataForm, "定额明细总表1", acNext
            Next
             DoCmd.GoToRecord acDataForm, "定额明细总表1", acGoTo, AAA
            

            
             Forms!定额明细总表1!CLGYZJE = sum
                    End If
    End If
    DoCmd.GoToRecord acDataForm, "定额明细总表1", acNext
  Next
    DoCmd.Close acForm, "定额明细总表1"
End Sub

shitou1ge

有时去掉　Or Forms!定额明细总表1!CPLX = "零件"　这一句　　ｚｚｚ就能显示　但是不包括 zzz\001和zzz\003的值了

koutx

你把如下不等于"主机"的语句块放在等于"主机"的If条件中,当然不会得到你想要的结果啦。
If (Forms!定额明细总表1!CPLX = "组件" Or Forms!定额明细总表1!CPLX = "零件") Then

shitou1ge

不是的　　你看DoCmd.GoToRecord , "定额明细总表1", acFirst　这一句　是又从第一条记录开始查找的　

shitou1ge

koutx

If Forms!定额明细总表1!CPLX = "主机" Then'看看这条If语句的End If在什么位置？？？？
           AAA = Forms!定额明细总表1!编号
        BBB = Forms!定额明细总表1!CPBM
            sum = 0
            DoCmd.GoToRecord , "定额明细总表1", acFirst
            For j = 1 To jilu'                           此For循环块只会运行最后一句！
                If (Forms!定额明细总表1!CPLX = "组件" Or Forms!定额明细总表1!CPLX = "零件") Then
　　　　        If Forms!定额明细总表1!CPBM Like BBB & "*" And Len(Forms!定额明细总表1!CPBM) < 8 Then
　　　　　　　   sum = sum + Forms!定额明细总表1!CLGYZJE
     　　　     End If
              End If
            DoCmd.GoToRecord acDataForm, "定额明细总表1", acNext'只运行此一句
           Next
          DoCmd.GoToRecord acDataForm, "定额明细总表1", acGoTo, AAA        
          Forms!定额明细总表1!CLGYZJE = sum
End If'                                                                                    在这那

shitou1ge

shitou1ge

我也是个新手 请大哥指教
If Forms!定额明细总表1!CPLX = "主机" Then   
           AAA = Forms!定额明细总表1!编号
           BBB = Forms!定额明细总表1!CPBM
以上是当在表中找到为“主机“时  在这条记录上做一标记 记下其编号为 AAA

DoCmd.GoToRecord , "定额明细总表1", acFirst   '这一句不是又回到定额明细表1 的第一条记录吗？以下循不是从第一条记录开始吗 ，不会找到批配的记录吗？  
For j = 1 To jilu'                           
If (Forms!定额明细总表1!CPLX = "组件" Or Forms!定额明细总表1!CPLX = "零件") Then
　If Forms!定额明细总表1!CPBM Like BBB & "*" And Len(Forms!定额明细总表1!CPBM) < 8 Then
　　　　　　　   sum = sum + Forms!定额明细总表1!CLGYZJE
     End If
End If
            DoCmd.GoToRecord acDataForm, "定额明细总表1", acNext
Next
此段 循环不是又从第一条开始到最后一条 寻找匹配记录吗 应该不受 前面 =”主机“ 条件的限制吧？
DoCmd.GoToRecord acDataForm, "定额明细总表1", acGoTo, AAA      
这句是回到刚才的记录点 也就是=”主机“的那条记录的位置

shitou1ge

请大哥帮忙哦

shitou1ge

唉　还没找到原因　就要沉底啦　救命啊