- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 日期时间转成条形码的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5765)
-- 发布时间：2010/1/11 21:46:00
-- 日期时间转成条形码的问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
在生产明细单里，把产品的宽度、重量、生产时间 （包括日期小时分）都转成字符，并用&连接在一起，如何做成条形码？
在窗口里绑定这样的数值，始终出错，请高手指点，谢谢。在生产时间里只想提取月日小时分这些数据，年和秒的数值不要可以吗
-- 发布时间：2010/1/11 22:06:00
--
上传文件看看
-- 发布时间：2010/1/12 0:16:00
--
| 下载信息 [文件大小：15.6 KB 下载次数：0] | |
 点击浏览该文件:管理项目1.rar |
在生产明细单里，把产品的宽度、重量、生产时间 （包括日期小时分）都转成字符，并用&连接在一起，如何做成条形码？
在窗口里绑定这样的数值，始终出错，请高手指点，谢谢。在生产时间里只想提取月日小时分这些数据，年和秒的数值不要可以吗
楼主需要学习关于条形码的知识：条形码具有指定的排列规则，不是任意组合数值或字符就可以，比如：商品条码包括地区码、企业标识码地、产品码、规格码、校验码，他们都有指定的位数和规则，生成的条码对某一商品来说（包括不同的规格）相当于公民身份证，否则不能被程序所识别，条码枪跟无能为力，再者，如果没有这些规则或者唯一性，超市就无法用商品的条形码进行入库出库，全部都要自己重新编码（有了规则和唯一性，超市只需对没有注册统一条码的商品进行补充编码）
给您这个帖子看一下或许就明白了：
http://www.datasoft.com.cn/cgi-bin/topic.cgi?forum=9&topic=9163
-- 发布时间：2010/1/12 9:08:00
--
code39不是可以表达字母和符合吗？
做的条形码只做内部流通用，并不要求在市场上使用。
-- 发布时间：2010/1/12 11:16:00
--
楼主需要学习关于条形码的知识：条形码具有指定的排列规则，不是任意组合数值或字符就可以，比如：商品条码包括地区码、企业标识码地、产品码、规格码、校验码，他们都有指定的位数和规则，生成的条码对某一商品来说（包括不同的规格）相当于公民身份证，否则不能被程序所识别，条码枪跟无能为力，再者，如果没有这些规则或者唯一性，超市就无法用商品的条形码进行入库出库，全部都要自己重新编码（有了规则和唯一性，超市只需对没有注册统一条码的商品进行补充编码）
给您这个帖子看一下或许就明白了：
http://www.datasoft.com.cn/cgi-bin/topic.cgi?forum=9&topic=9163
我也不太了解条形码的生成规则，但有一点我知道：我们用的一种电子合同程序，可以根据自已要求输入任何字符生成条码（比如：签约时间、签约地址……），而用程序开发商提供的扫描程序，可反查其内容！
当然字符越多，条码越长
而程师所说的条码可能只是一种通用标准格式生存的，而这种条码可在任一标准的通用扫描仪器，扫描后得出标准信息
-- 发布时间：2010/1/12 11:46:00
--
是的，不要求标准信息，对个性化信息进行编码。
-- 发布时间：2010/1/12 11:55:00
--
这是程序的一个错误。
先这样解决吧，取消条形码控件的绑定，PositionChanged事件代码。
if Forms("窗口1").Opened Then
Dim r As Row = Tables("表A").Current
Forms("窗口1").Controls("BarCode1").Text = r("条形码")
End If
-- 发布时间：2010/1/12 12:07:00
--
好象不能绑定到列
-- 发布时间：2010/1/12 12:17:00
--
可以了 谢谢
生产时间里只想提取月日小时分这些数据，年和秒的数值不要可以吗
-- 发布时间：2010/1/12 12:22:00
--
时间列显示了也无所谓。
你直接将代码改成这样：
if Forms("窗口1").Opened Then
Dim r As Row = Tables("表A").Current
Forms("窗口1").Controls("BarCode1").Text = r("克重") & r("重量") & Format(r("生产时间"),"mmddhhmm")
End If