Office中国论坛/Access中国论坛

标题: 请帮助进行数量拆分,目的是做标签使用 [打印本页]

作者: yanwei82123300 时间: 2013-1-5 19:12
标题: 请帮助进行数量拆分,目的是做标签使用
请帮助进行数量拆分：
例如：50 拆成1 2 3 4 5 .....50
   20 拆成1 2 3 4 5......20
目的是做标签使用,公司想将生产数量，打印成标签
标签格式：生产订单号 : MO-137051  订单数量  20
   MO-137051-001 MO-137051-002  MO-137051-003......MO-137051-020
请帮助看看谢谢

作者: todaynew 时间: 2013-1-6 10:51
Function 循环输出编号(str as string,num as long)
'示例：call 循环输出编号("MO-137051-",20)
dim i as long
for i=1 to num
'以下msgbox可替换为输出标签的相关语句块
msgbox str & format(i,"000")
next
End Function

作者: yanwei82123300 时间: 2013-1-6 12:27
todaynew 谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)