| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]后台数据报表如何打印一维码？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184644) |
| -- 作者：kb9702 -- 发布时间：2022/12/19 21:43:00 -- [求助]后台数据报表如何打印一维码？ 想问下基于后台数据生成的报表如何打印条码 系统有table的可以用报表事件 If e.Book.TempLate = "采购入库标签" Then If e.region = "采购入库标签" Then If e.DataRow Is Nothing OrElse e.DataRow.IsNull("ID") Then \'如果是空行或者Lot列为空 Dim img As New System.Drawing.Bitmap(1, 1) \'生成一个空白图片 img.Save(ProjectPath & "Images\\BarID.gif") Else \'否则生成条形码图片 Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.Code128 Bar.Code = e.DataRow("ID") Bar.BarRatio = 0.3 Bar.BarHeight = 8 Bar.DisplayCode = False bar.SaveImage(ProjectPath & "Images\\BarID.gif", 600) End If End If End If 这种来替换，后台生成的报表怎么操作呢？ |
| -- 作者：有点蓝 -- 发布时间：2022/12/19 22:00:00 -- 我测试一样可以触发报表事件 |
| -- 作者：kb9702 -- 发布时间：2022/12/20 8:12:00 -- 以下是引用有点蓝在2022/12/19 22:00:00的发言： 我测试一样可以触发报表事件 失误，失误。。。确实可以的。。
|