深圳全飞鸿

标题: 关于9号模板 [打印本页]
作者: syant    时间: 2025-4-19 22:18
标题: 关于9号模板
载自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


  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

  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
复制代码






欢迎光临 深圳全飞鸿 (http://www.nagomes.com/disc/) Powered by Discuz! X3.2