关于9号模板

syant

载自8号模板

1. DIM printmax
   
2. dim pqty
   
3. dim totalqty
   
4. dim yushu
   
5. totalqty=Format.NamedSubStrings("TOTALQTY").Value
   
6. pqty=Format.NamedSubStrings("QTY").Value
   
7. printmax=Format.NamedSubStrings("PRINTMAX").Value
   
8. printidx=Format.NamedSubStrings("PRINTIDX").Value
   
9. 
   
10. 
    
11. if printidx<printmax then
    
12.    Value = pqty
    
13. else
    
14.    yushu= totalqty - pqty*(printmax-1)
    
15.    Value = yushu  
    
16. end if
    

复制代码

载自72号模板：这里面有一个bug, 在VB里CInt只能处理两个字节

1. DIM printmax
   
2. dim pqty
   
3. dim totalqty
   
4. dim yushu
   
5. totalqty=Format.NamedSubStrings("TOTALQTY").Value
   
6. pqty=Cint(Format.NamedSubStrings("QTY").Value)
   
7. printmax=CInt(Format.NamedSubStrings("PRINTMAX").Value)
   
8. printmax=printmax-1
   
9. 
   
10. if Format.NamedSubStrings("IDX").Value = Format.NamedSubStrings("PRINTMAX").Value then
    
11.    Value = Format.NamedSubStrings("TOTALQTY").Value
    
12. elseif Format.NamedSubStrings("IDX").Value = CStr(printmax) then
    
13.    yushu= totalqty - pqty*(printmax-1)
    
14.    Value = yushu  
    
15. else
    
16.    Value = Format.NamedSubStrings("QTY").Value
    
17. end if

复制代码