Foxtable(狐表)用户栏目专家坐堂 → 条形码问题


  共有3207人关注过本帖树形打印复制链接

主题:条形码问题

帅哥哟,离线,有人找我吗?
edisontsui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
条形码问题  发帖心情 Post By: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

请教问题在哪里?谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2019/7/2 14:52:00 [显示全部帖子]

加上MessageBox.show("abcd")之后,执行报表时,没有任何提示和警告。

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2019/7/2 16:01:00 [显示全部帖子]

谢谢了,解决了。

 回到顶部