<%

 '給出消費(fèi)總報表
  Sub WriteList
  
      On Error Resume Next
  
      Dim nColor
      Dim nRecord
      Dim sDLink                                           
      Dim bColorChange
      Dim xccMoney,xccAmount,xccQuanty,xccJGF
      Dim xTmpType                             '菜名分類
      
      bColorChange=0
      nColor="#FAEFE4"
      nRecord=0
        
      Do while Not objRS.Eof                                   
      
        '匯總合計
         amosTotal = amosTotal + objRs("JE")   
         amoTotal = amoTotal + objRs("Amoss")      
         quaTotal = quaTotal + objRs("Quantys")   
         bxfTotal = bxfTotal + objRs("JGFs")           
                
         If NullValue(objRs("DType")) <> sTmpType Then
           '第一次循環(huán)時,不寫小計
            If sTmpType <> "" Then
               nColor="#FFFFFF"
              '小計開始==============================================================
               response.write "<tr>" & vbcrlf 
               response.write "<td width='61' bgcolor='" & nColor & "' align='Center'></td>" & vbcrlf
               response.write "<td width='70' bgcolor='" & nColor & "' align='Center'></td>"  & vbcrlf         
               response.write "<td width='60' bgcolor='" & nColor & "' align='Left'>『小計』</td>" & vbcrlf          
              '給出物品分類
               response.write "<td width='84' bgcolor='" & nColor & "' align='Left'></td>" & vbcrlf     
              '給出單位
               response.write "<td width='30' bgcolor='" & nColor & "' align='Left'></td>" & vbcrlf      
              '給出單價
               response.write "<td width='70' bgcolor='" & nColor & "' align='right'></td>" & vbcrlf  
              '給出數(shù)量
               response.write "<td width='60' bgcolor='" & nColor & "' align='right'>"         
               response.write FormatNumber(xccQuanty,2,-1)
               response.write "</td>" & vbcrlf                    
              '給出金額
               response.write "<td width='80' bgcolor='" & nColor & "' align='Right'>"
               response.write FormatNumber(xccMoney,2,-1)
               response.write "</td>" & vbcrlf  
              '給出加工費(fèi)
               response.write "<td width='50' bgcolor='" & nColor & "' align='Right'>"
               response.write FormatNumber(xccJgf,2,-1)
               response.write "</td>" & vbcrlf           
              '給出總金額
               response.write "<td width='90' bgcolor='" & nColor & "' align='Right'>"
               response.write FormatNumber(xccAmount,2,-1)
               response.write "</td>" & vbcrlf  
               response.write "</tr>"  & vbcrlf    
              '小計結(jié)束============================================================== 
               xccQuanty = 0: xccAmount = 0: xccMoney = 0: xccJGF = 0
            End If
            nColor="#FAEFE4" 
            sTmpType = NullValue(objRs("DType"))
            '插入帶食品分類的產(chǎn)品++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
             response.write "<tr>" & vbcrlf    
             response.write "<td width='61' bgcolor='" & nColor & "' align='Center'></td>" & vbcrlf
             response.write "<td width='70' bgcolor='" & nColor & "' align='Center'></td>"  & vbcrlf         
            '給出食品分類
             response.write "<td width='60' bgcolor='" & nColor & "' align='Left'>"         
             response.write objRs("DType")
             response.write "</td>" & vbcrlf          
            '給出物品分類
             response.write "<td width='84' bgcolor='" & nColor & "' align='Left'>"
             response.write objRs("Name")  
             response.write "</td>" & vbcrlf     
            '給出單位
             response.write "<td width='30' bgcolor='" & nColor & "' align='Left'>"
             response.write objRs("Unit")  
             response.write "</td>" & vbcrlf      
            '給出單價
             response.write "<td width='70' bgcolor='" & nColor & "' align='right'>"
             response.write FormatNumber(objRs("Price"),2,-1)         
             response.write "</td>" & vbcrlf  
            '給出數(shù)量
             response.write "<td width='60' bgcolor='" & nColor & "' align='right'>"         
             response.write FormatNumber(objRs("Quantys"),2,-1)
             response.write "</td>" & vbcrlf                    
            '給出金額
             response.write "<td width='80' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("Je"),2,-1)
             response.write "</td>" & vbcrlf  
            '給出加工費(fèi)
             response.write "<td width='50' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("JGFs"),2,-1)
             response.write "</td>" & vbcrlf           
            '給出總金額
             response.write "<td width='90' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("Amoss"),2,-1)
             response.write "</td>" & vbcrlf  
             response.write "</tr>"  & vbcrlf    
            '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++             
          Else
             nColor="#FFFFFF"
            '相同分類時,插入無食品分類**************************************************************
             response.write "<tr>" & vbcrlf 
             response.write "<td width='61' bgcolor='" & nColor & "' align='Center'></td>" & vbcrlf
             response.write "<td width='70' bgcolor='" & nColor & "' align='Center'></td>"  & vbcrlf         
             response.write "<td width='60' bgcolor='" & nColor & "' align='Left'></td>" & vbcrlf 
            '給出物品分類
             response.write "<td width='84' bgcolor='" & nColor & "' align='Left'>"
             response.write objRs("Name")  
             response.write "</td>" & vbcrlf     
            '給出單位
             response.write "<td width='30' bgcolor='" & nColor & "' align='Left'>"
             response.write objRs("Unit")  
             response.write "</td>" & vbcrlf      
            '給出單價
             response.write "<td width='70' bgcolor='" & nColor & "' align='right'>"
             response.write FormatNumber(objRs("Price"),2,-1)         
             response.write "</td>" & vbcrlf  
            '給出數(shù)量
             response.write "<td width='60' bgcolor='" & nColor & "' align='right'>"         
             response.write FormatNumber(objRs("Quantys"),2,-1)
             response.write "</td>" & vbcrlf                    
            '給出金額
             response.write "<td width='80' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("Je"),2,-1)
             response.write "</td>" & vbcrlf  
            '給出加工費(fèi)
             response.write "<td width='50' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("JGFs"),2,-1)
             response.write "</td>" & vbcrlf           
            '給出總金額
             response.write "<td width='90' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("Amoss"),2,-1)
             response.write "</td>" & vbcrlf  
             response.write "</tr>"  & vbcrlf    
            '**************************************************************************************** 
         End If     
         xccMoney = xccMoney + objRs("Je")               '小計
         xccAmount = xccAmount + objRs("Amoss")      
         xccQuanty = xccQuanty + objRs("Quantys")    
         xccJGF = xccJGF + objRs("JGFs")                                     
         objRs.Movenext          
         nRecord=nRecord+1
    Loop
    sTotal=nRecord                              '共有多少條記錄
    If sTmpType<>"" Then
       nColor="#FFFFFF"
      '小計開始==============================================================
       response.write "<tr>" & vbcrlf 
       response.write "<td width='61' bgcolor='" & nColor & "' align='Center'></td>" & vbcrlf
       response.write "<td width='70' bgcolor='" & nColor & "' align='Center'></td>"  & vbcrlf 
       response.write "<td width='60' bgcolor='" & nColor & "' align='Left'>『小計』</td>" & vbcrlf  
      '給出物品分類
       response.write "<td width='84' bgcolor='" & nColor & "' align='Left'></td>" & vbcrlf     
      '給出單位
       response.write "<td width='30' bgcolor='" & nColor & "' align='Left'></td>" & vbcrlf      
      '給出單價
       response.write "<td width='70' bgcolor='" & nColor & "' align='right'></td>" & vbcrlf  
      '給出數(shù)量
       response.write "<td width='60' bgcolor='" & nColor & "' align='right'>" 
       response.write FormatNumber(xccQuanty,2,-1)
       response.write "</td>" & vbcrlf    
      '給出金額
       response.write "<td width='80' bgcolor='" & nColor & "' align='Right'>"
       response.write FormatNumber(xccMoney,2,-1)
       response.write "</td>" & vbcrlf  
      '給出加工費(fèi)
       response.write "<td width='50' bgcolor='" & nColor & "' align='Right'>"
       response.write FormatNumber(xccJgf,2,-1)
       response.write "</td>" & vbcrlf   
      '給出總金額
       response.write "<td width='90' bgcolor='" & nColor & "' align='Right'>"
       response.write FormatNumber(xccAmount,2,-1)
       response.write "</td>" & vbcrlf  
       response.write "</tr>"  & vbcrlf    
      '小計結(jié)束============================================================== 
     End If
     
End Sub

Function NullValue(tmpField)
   
   On error resume next
   
   IF not Isnull(tmpField) Then
      NullValue=tmpField.Value
     Else
      Nullvalue=""
   End If    
   
End Function

%>