主题：[求助]循环打印

这句代码

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