|
各位大侠好。
本人对VBA不是很在行,略微看得懂一些。现在有这么一个需求如下:具体在附件中。恳请大家给与帮助,谢谢。
要求:如附件中的输入界面
* 文本框接受16位字符串,前10位为产品料号,后6位为序列号,可手输入或扫描
* 默认选项是打印文本(即128码的条形码下有文本)
* 输完后按打印健时如果文本框中的字符大于16位或小于16位会提示错误“请输入10位产品料号+6位序列号”
* 输入完毕后回车,会到Definition中比对,截取前10位,如果没有和A列一致的,提示错误:“没有此产品,请添加新产品”
* 如果比对成功,将Definition中第2列和第3列的信息(中间加空格)显示在红色字下的文本框中。
* 创建一个记录文件(excel 或文本文件),名字是年月开头即可,如201603.xls或201603.txt。如果有此文件,就打开,
* 按打印按钮(保存和打印)后,正确的文本框内容将被保存在相应月的记录文件中下,并在后面保存当时的时间(dd/mm/yyyy hh:mm:ss),与Record页中类似
* 若无记录,就存在第一行,若有记录,则保存在记录的下一行
* 打印在默认的标签打印机上,128码,大小55mm X 31mm
|
|