- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 条形码问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137276)
-- 发布时间：2019/7/2 13:52:00
-- 条形码问题
http://www.foxtable.com/webhelp/index.htm?page=0671.htm
我用上面链接里面的方法设计了一个送货单打印条形码的报表，但是打印出来的报表看不到条形码，而表格的其他内容都没有问题。
附页是我的送货单excel表格：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:送货单(纵向a4)-条形码.zip |
我的BuildDetail事件代码如下：
If e.Book.TempLate = "出入库单总表" Then
If e.region = "出入库" Then
If e.DataRow Is Nothing OrElse e.DataRow.IsNull("物料编号") Then \'如果是空行或者物料编号列为空
Dim img As New System.Drawing.Bitmap(1,1) \'生成一个空白图片
img.Save(ProjectPath & "Images\\BarCode.gif")
Else \'否则生成条形码图片
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.Code = e.DataRow("物料编号")
Bar.BarRatio = 0.3
Bar.BarHeight = 8
bar.SaveImage(ProjectPath & "Images\\BarCode.gif",300)
End If
End If
End If
请教问题在哪里？谢谢。
-- 发布时间：2019/7/2 14:32:00
--
加上红色代码，看看是否有执行：
If e.Book.TempLate = "出入库单总表" Then
If e.region = "出入库" Then
If e.DataRow Is Nothing OrElse e.DataRow.IsNull("物料编号") Then \'如果是空行或者物料编号列为空
Dim img As New System.Drawing.Bitmap(1,1) \'生成一个空白图片
img.Save(ProjectPath & "Images\\BarCode.gif")
Else \'否则生成条形码图片
MessageBox.show("abcd")
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.Code = e.DataRow("物料编号")
Bar.BarRatio = 0.3
Bar.BarHeight = 8
bar.SaveImage(ProjectPath & "Images\\BarCode.gif",300)
End If
End If
End If
-- 发布时间：2019/7/2 14:35:00
--
If e.Book.TempLate = "送货单(纵向A4)-条形码" Then ‘TempLate是指模板文件的名称’
-- 发布时间：2019/7/2 14:52:00
--
加上MessageBox.show("abcd")之后，执行报表时，没有任何提示和警告。
-- 发布时间：2019/7/2 15:03:00
--
看三楼，说明e.Book.TempLate 不是"出入库单总表" ，改为实际的文件名。
看看这些属性的实际意义：
http://www.foxtable.com/webhelp/topics/1953.htm
-- 发布时间：2019/7/2 16:01:00
--
谢谢了，解决了。