Dim idx As Integer = Tables("工艺执行").findrow(e.DataRow)
If idx < Tables("工艺执行").rows.count - 1
Dim r As Row = Tables("工艺执行").rows(idx+1)
'这里的r就是下一行,根据r的数据生成右边图片
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.code = r("订单档案") & "-" & r("流程描述")
'Bar.QRCodeModuleSize = 0.5
Bar.QuietZoneWidth = 0
Bar.Font = New Font("黑体",13)
bar.SaveImage(ProjectPath & "Images\BarCode51.tif",600)
else
Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片
'img.Save(ProjectPath & "Images\BarCode51.tif") （这一行注释和不注释都一样）
End If
加好友 
发短信
Post By：2020/11/4 14:03:00 [显示全部帖子]
