- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于BarCodeBuilder用法报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29317)
-- 发布时间：2013/3/4 15:13:00
-- 关于BarCodeBuilder用法报错
老大请进，有如下问题请帮忙看下：
\'**********************
\'现有以下条码打印代码，只是全部代码其中一段，如果执行以下这一段，报错如图，如果取消这段代码，执行正常。
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Ean13
Bar.BarRatio = 0.3
bar.Code = dr("运单号")
Dim rt As New Prt.RenderTable
Dim rm As new prt.RenderImage
rm.Image = bar.GetImage
rt.Cells(0,0).RenderObject = rm
\'**********************
看提示信息，似乎是getimage的问题
此主题相关图片如下：error.png
-- 发布时间：2013/3/4 15:24:00
--
dr("运单号")是可以正常取值的，前面的代码中已经定义了dr变量，且dr("运单号")是非空的字符串
-- 发布时间：2013/3/4 15:55:00
--
将dr("运单号")的值是什么，贴出实际的值，我来测试一下看看
-- 发布时间：2013/3/4 16:01:00
--
\'代码精简到这个程度，也能看出报错，报错信息同一楼，请帮忙看下
Dim Doc As New PrintDoc
Dim rt As new prt.RenderTable
Dim rm As new prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Ean13
Bar.BarRatio = 0.3
bar.Code = "1003229266"
rm.Height = 60
rm.Width = 160
rm.Image = bar.GetImage()
rt.Cells(0,0).RenderObject = rm
Doc.Body.ChildRen.Add(rt) \'将容器加入到报表中
Doc.Preview
-- 发布时间：2013/3/4 16:24:00
--
条码是有规范的，不是随便一个值都可以的
Dim Doc As New PrintDoc
Dim rt As new prt.RenderTable
Dim rm As new prt.RenderImage
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Ean13
Bar.BarRatio = 0.3
bar.Code = "690123456789"
rm.Height = 60
rm.Width = 160
rm.Image = bar.GetImage()
rt.Cells(0,0).RenderObject = rm
Doc.Body.ChildRen.Add(rt) \'将容器加入到报表中
Doc.Preview
-- 发布时间：2013/3/4 16:41:00
--
1003229266是邮政提供的单号，我检查一下吧
-- 发布时间：2013/3/4 16:43:00
--
是不是首先判断编码规则，比如位数和校验码是否正确，再打印！
-- 发布时间：2013/3/4 16:51:00
--
老程言之有理，其实不应该用E13类型，这是国际商品通用条码。
-- 发布时间：2013/3/4 17:08:00
--
关于ean-13条码，不妨看看这个，这是我当年给易表朋友解决一个问题，也许对您在狐表中的应用有帮助：
http://www.egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=18345&authorid=0&page=0&star=1