主题：[求助]Excel模板如何设置条形码图片？

谁说不支持啊：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目122.rar

生成条形码的代码在哪里？按钮的代码里没找到

呵呵，看以下内容的示例四，其实刚才就叫你看了，你不看：

 

http://www.foxtable.net/help/topics/1955.htm

 

 

我报表模板设置的是一张主表和关联的子表数据，我的代码是这样写的：

If e.Book.TempLate = "SalesInvoice" Then
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.Code39
    Bar.Code = e.DataRow("Lot")
    Bar.BarRatio = 0.3
    Bar.BarHeight = 8
    bar.SaveImage(ProjectPath & "Images\BarCode.gif",300)
End If

输出时报错了，“Lot”这一列是子表SaleOrderDetail上的列，所以主表SaleOrder没有这一列，但是输出的效果还是出来了，这个怎么改？

我设定子表输出行数是15行，如果子表没那么多行就用空行代替了，但是对应条形码那一列还是把最后一行数据的条形码填充进去了，这个怎么解决？

此主题相关图片如下：报错.jpg


此主题相关图片如下：输出效果.jpg

错误提示说的是：SaleOrer表没有Lot列。

 

检查一下你的模板设置。

我刚才说了，主表SaleOrer表确实是没有Lot列，Lot列是子表SaleOrderDetail表上的。问题是怎样修改才不报错？

还有空行那里怎么取消条形码？

上传这个表和Excel报表模板，否则我也给不出准确答案。

注意：项目中绑定的是SQL数据库，所以可能会报错，进入后再加载下面的Access数据库，双击主表会弹出当前行明细

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:saleinvoice_0714.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:access数据.rar

请重定向到内部表，否则我打不开你的文件啊。

空行的问题可以这么解决:

 

if e.DataRow isnot Nothing AndAlso e.datarow.IsNull("lot") = false then

   Dim Bar As New BarCodeBuilder
   Bar.Symbology = Barpro.Symbology.Code39
   Bar.Code = e.DataRow("Lot")
   Bar.BarRatio = 0.3
    Bar.BarHeight = 8
    bar.SaveImage(ProjectPath & "Images\BarCode.gif",300)

Else

   filesys.DeleteFile(SaveImage(ProjectPath & "Images\BarCode.gif")

end if