- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]关于工艺执行单 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157991)
-- 发布时间：2020/11/4 13:59:00
-- [讨论]关于工艺执行单
老师好：
请教下，这种工艺执行单，该怎么设置：
1.主表为 生产单，已经设计并带出了内容和二维码
2.字表 为 工艺执行 明细里有很多不固定行数的流程（二维码已可以生成），需要按流程序号顺序生成2列的 打印内容，请教下要怎么设置才能打印完整
谢谢老师！
-- 发布时间：2020/11/4 14:03:00
--
没看懂
表格数据是怎么样的？需要什么效果？
-- 发布时间：2020/11/4 14:46:00
--
老师好，我重新备注上传
-- 发布时间：2020/11/4 15:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工艺执行指令单备注.zip |
-- 发布时间：2020/11/4 15:49:00
--
谢谢蓝老师，实现了一半了，现在能够按2列显示，右边的二维码还没有按+1的行生成二维码，还是前面列的二维码，我直接+1，不会带出二维码，请老师再帮看看，谢谢
谢谢！
-- 发布时间：2020/11/4 15:51:00
--
二维码是报表事件使用代码生成的吧，这个到报表事件处理，一次同时生成2个图片即可
[此贴子已经被作者于2020/11/4 15:51:29编辑过]
-- 发布时间：2020/11/4 16:23:00
--
谢谢老师，我在报表事件里，生成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
请老师再帮看看，右边的二维码要怎么引用
谢谢！
-- 发布时间：2020/11/4 16:35:00
--
2个图片使用不同的名称啊
[&&BarCode5.tif,40,35,70,70]
[&&BarCode51.tif,40,35,70,70]
左边图片使用e.DataRow
右边图片需要获取下一行：
dim idx as integer = tables("工艺执行").findrow(e.DataRow)
if idx < tables("工艺执行").rows.count - 1
dim r as row = tables("工艺执行").rows(idx+1)
这里的r就是下一行，根据r的数据生成右边图片
end if
-- 发布时间：2020/11/4 17:39:00
--
谢谢蓝老师，现在可以带出右边的对应二维码了，但最后一行右边内容为空时，多出了一个和上一行一样的二维码，那么怎样才能不多出一个不需要的呢
此主题相关图片如下：没有行内容右边二维码不需要显示和上次的二维码.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
谢谢！
-- 发布时间：2020/11/5 8:33:00
--
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