以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  专业报表打印條碼,激光條碼機不能閱讀?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=18396)
--  作者：tungwun
--  发布时间：2012/4/11 21:35:00
--  专业报表打印條碼,激光條碼機不能閱讀?
专业报表 打印條碼,激光條碼機不能閱讀?

Dim rm As New prt.RenderBarCode()
rm.Height =10
rm.BarCodeType = BarCodeEnum.Code39
rm.BarDirection = BarDirectionEnum.Normal 
rm.Text = "*" & CurRow("車牌號碼") & "*"
rm.x = 95
rm.y = 162
doc.Body.Children .Add(rm) 
--  作者：程兴刚
--  发布时间：2012/4/11 22:10:00
--  

关键是您的条码类型是Code39码，但不知您应用的数据列的数据是否符合Code39码的条码规则，否则，扫描枪是无法识别的，不过Code39码好像没有校验规则，不太明白到底怎么回事！

[此贴子已经被作者于2012-4-11 22:54:22编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/4/12 8:08:00
--  

这样看看：

 

rm.Text =  CurRow("車牌號碼")

--  作者：程兴刚
--  发布时间：2012/4/12 8:21:00
--  
是不是这里有问题，自己检测一下： CurRow("車牌號碼")，如果不是自定义的CurRow，这里写法应该有问题吧？ 否则判断一下CurRow("車牌號碼")是不是没有输入值为空！