以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【二维码】根据分册编码，如何批量生成二维码呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108476)
--  作者：李孝春
--  发布时间：2017/10/23 18:36:00
--  【二维码】根据分册编码，如何批量生成二维码呢？
【二维码】根据分册编码，如何批量生成二维码呢？
录入卷宗册数，假设是5卷
会自动生成5行
分册编号【类型为字符】对应为
5-1
5-2
5-3
5-4
5-5

代码如下：如何在红色部分代码做修改，使之对应生成五个二维码呢？分别对应分册编号记录数

Select Case e.DataCol.Name
    Case "所属地州","所属单位","卷宗名称","录入时间","承办人","承办部门","联系电话","卷宗册数","分册编号"
        Dim Val1 As String = e.DataRow("所属地州")
        Dim Val11 As String = e.DataRow("所属单位")
        Dim Val111 As String = e.DataRow("卷宗名称")
        Dim Val1111 As String = e.DataRow("卷宗册数")
        Dim Val11111 As String= e.DataRow("录入时间")
        Dim Val111111 As String= e.DataRow("承办人")
        Dim Val1111111 As String= e.DataRow("承办部门")
        Dim Val11111111 As String= e.DataRow("联系电话")
        Dim Val111111111 As  String= e.DataRow("卷宗册数")
        Dim Val1111111111 As  String= e.DataRow("分册编号")
        
        Dim val0 As String = "所属地州:[" & val1 & "]" & "所属单位:[" & val11 & "]" & "案卷名:[" & val111 & "]" & "册数:[" & val1111 & "]" & "入库时间:[" & Val11111 & "]" & "承办人:[" & Val111111 & "]" & "承办部门:[" & Val1111111 & "]" & "联系电话:[" & Val11111111 & "]" & "卷宗册数:[" & Val111111111 & "]" & "分册编号:[" & Val1111111111 & "]"
        e.DataRow("加密字符")=EncryptText(Val0,"a23","op#")
        Dim Bar As New BarCodeBuilder
        Bar.Symbology = Barpro.Symbology.QRCode
        Bar.Code = EncryptText(Val0,"a23","op#")
        Bar.QuietZoneWidth = 2
        Bar.SaveImage("d:\\ceshi\\" & e.DataRow("卷宗名称") & e.datarow("分册编号") & ".jpg")
            
End Select
[此贴子已经被作者于2017/10/23 20:06:56编辑过]
--  作者：有点蓝
--  发布时间：2017/10/23 20:12:00
--  
既然是自动生成5行，那么这个事件就自然会触发5次，然后保存了5个。还需要怎么处理呢？