主题：【二维码】根据分册编码，如何批量生成二维码呢？

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