Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]关于工艺执行单


  共有2869人关注过本帖树形打印复制链接

主题：[讨论]关于工艺执行单
帅哥哟，离线，有人找我吗？
工匠
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：546 积分：4931 威望：0 精华：0 注册：2017/4/20 11:08:00 		[讨论]关于工艺执行单  发帖心情 Post By：2020/11/4 13:59:00 [只看该作者]

老师好：
请教下，这种工艺执行单，该怎么设置：
1.主表为 生产单，已经设计并带出了内容和二维码
2.字表 为 工艺执行  明细里有很多不固定行数的流程（二维码已可以生成），需要按流程序号顺序生成2列的 打印内容，请教下要怎么设置才能打印完整

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工艺执行指令单.xls




谢谢老师！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107740 积分：548039 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/4 14:03:00 [只看该作者]

没看懂
表格数据是怎么样的？需要什么效果？
 回到顶部
帅哥哟，离线，有人找我吗？
工匠
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：546 积分：4931 威望：0 精华：0 注册：2017/4/20 11:08:00 		  发帖心情 Post By：2020/11/4 14:46:00 [只看该作者]

老师好，我重新备注上传

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工艺执行指令单备注.xls
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107740 积分：548039 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/4 15:07:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工艺执行指令单备注.zip
 回到顶部
帅哥哟，离线，有人找我吗？
工匠
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：546 积分：4931 威望：0 精华：0 注册：2017/4/20 11:08:00 		  发帖心情 Post By：2020/11/4 15:49:00 [只看该作者]

谢谢蓝老师，实现了一半了，现在能够按2列显示，右边的二维码还没有按+1的行生成二维码，还是前面列的二维码，我直接+1，不会带出二维码，请老师再帮看看，谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工艺执行.xls


谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107740 积分：548039 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/4 15:51:00 [只看该作者]

二维码是报表事件使用代码生成的吧，这个到报表事件处理，一次同时生成2个图片即可
[此贴子已经被作者于2020/11/4 15:51:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
工匠
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：546 积分：4931 威望：0 精华：0 注册：2017/4/20 11:08:00 		  发帖心情 Post By：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


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


谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107740 积分：548039 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
工匠
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：546 积分：4931 威望：0 精华：0 注册：2017/4/20 11:08:00 		  发帖心情 Post By：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


谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107740 积分：548039 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 8 次数据查询