主题：关于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

dr("运单号")是可以正常取值的，前面的代码中已经定义了dr变量，且dr("运单号")是非空的字符串

将dr("运单号")的值是什么，贴出实际的值，我来测试一下看看

 

'代码精简到这个程度，也能看出报错，报错信息同一楼，请帮忙看下

 

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

条码是有规范的，不是随便一个值都可以的

 

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

1003229266是邮政提供的单号，我检查一下吧

是不是首先判断编码规则，比如位数和校验码是否正确，再打印！

老程言之有理，其实不应该用E13类型，这是国际商品通用条码。