主题：[求助]循环打印

各位老师，我想实现的功能是每一个二维码对应一个文本说明，而文本说明是根据生成二维码的某一列的内容作为另一表的查询条件，去找到文本说明。也就是生成一个订单行的二维码，，通过订单中“用户编号”查找到用户表中对应的“用户姓名”，将“用户姓名”，作为二维码的说明文本。我写了如下代码，但是每次生成二维码的时候，都会生成多余的二维码。请老师指点，代码怎样修改？

  代码没什么问题，例子发上来测试。

老师， 你帮忙看看

我上传的附件怎么看不见？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

这句代码

 

Dim ps As List( of String) =DataTables("用户").sqlgetvalues("用户姓名","","用户编号 = '" & b & "'")

 

改成

 

Dim ps As List( of String) =DataTables("用户").SQLGetValues("用户姓名","用户编号 = '" & b & "'","")

或者

 

Dim Result As DialogResult
Dim rs As List(of Row) = Tables("订单表").GetCheckedRows()
If rs.Count > 0 Then
    Dim doc As New PrintDoc
    Dim rg As prt.RenderGraphics
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.QRCode
    Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
    For Each r As Row In rs
        Bar.Code = "【用户编号】" & r("用户编号") & vbcrlf & "【产品批次】" & r("产品批次") & vbcrlf & "【产品名称】" & r("产品名称")
        Bar.TextFont = New Font("微软雅黑",10.5)
        Dim  b As String=r("用户编号")
        Dim fdr As DataRow = DataTables("用户").SQLFind("用户编号 = '" & b & "'")
        If fdr IsNot Nothing Then
            Bar.HumanReadableText="用户姓名:" &  fdr("用户姓名")
        End If
        rg = new prt.RenderGraphics
        bar.DrawOnCanvas(rg.Graphics,0,0,1)
        rg.Style.Spacing.All = 1
        Doc.Body.Children.Add(rg)
    Next
    Doc.Preview()
Else
    messagebox.show("请选择打印二维码项?")
End If

x谢谢老师，问题已解决