[讨论]关于工艺执行单 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好：

请教下，这种工艺执行单，该怎么设置：

1.主表为生产单，已经设计并带出了内容和二维码

2.字表为工艺执行明细里有很多不固定行数的流程（二维码已可以生成），需要按流程序号顺序生成2列的打印内容，请教下要怎么设置才能打印完整

下载信息 [文件大小：下载次数： ]
点击浏览该文件:工艺执行指令单.xls

谢谢老师！

老师好，我重新备注上传

下载信息 [文件大小：下载次数： ]
点击浏览该文件:工艺执行指令单备注.xls

谢谢蓝老师，实现了一半了，现在能够按2列显示，右边的二维码还没有按+1的行生成二维码，还是前面列的二维码，我直接+1，不会带出二维码，请老师再帮看看，谢谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:工艺执行.xls

谢谢！

谢谢老师，我在报表事件里，生成2个二维码，

左边列二维码（引用：[&&BarCode5.tif,40,35,70,70]）可以带出，和流程的一致

If e.DataRow Is Nothing OrElse e.DataRow.IsNull("订单档案") Then '

Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片

img.Save(ProjectPath & "Images\BarCode5.tif")

Else '否则生成条形码图片

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

'bar.code = e.DataRow("执行档案")

bar.code = e.DataRow("订单档案") & "-" & e.DataRow("流程描述")

'Bar.QRCodeModuleSize = 0.5

Bar.QuietZoneWidth = 0

Bar.Font = New Font("黑体",13)

bar.SaveImage(ProjectPath & "Images\BarCode5.tif",600)

End If

右边列二维码（引用：[&&BarCode51.tif,40,35,70,70]）可以带出，但是却是左边的二维码内容，和流程不一致

（引用：[&&BarCode51.tif,40,35,70,70+1]）不会带出二维码

If e.DataRow Is Nothing OrElse e.DataRow.IsNull("订单档案") Then '

Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片

img.Save(ProjectPath & "Images\BarCode51.tif")

Else '否则生成条形码图片

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

'bar.code = e.DataRow("执行档案")

bar.code = e.DataRow("订单档案") & "-" & e.DataRow("流程描述")

'Bar.QRCodeModuleSize = 0.5

Bar.QuietZoneWidth = 0

Bar.Font = New Font("黑体",13)

bar.SaveImage(ProjectPath & "Images\BarCode51.tif",600)

End If

请老师再帮看看，右边的二维码要怎么引用

谢谢！

谢谢蓝老师，现在可以带出右边的对应二维码了，但最后一行右边内容为空时，多出了一个和上一行一样的二维码，那么怎样才能不多出一个不需要的呢

此主题相关图片如下：没有行内容右边二维码不需要显示和上次的二维码.png

Dim idx As Integer = Tables("工艺执行").findrow(e.DataRow)

If idx < Tables("工艺执行").rows.count - 1

Dim r As Row = Tables("工艺执行").rows(idx+1)

'这里的r就是下一行,根据r的数据生成右边图片

If r Is Nothing OrElse r.IsNull("订单档案") Then

Dim img As New System.Drawing.Bitmap(1,1) '生成一个空白图片

'img.Save(ProjectPath & "Images\BarCode51.tif") （这一行注释和不注释都一样）

Else '否则生成条形码图片

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)

End If

谢谢！

谢谢蓝老师，可以了

主题：[讨论]关于工艺执行单