主题：[原创]窗口中二维码取数据问题

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

点击浏览该文件:二维码测试_201707181533.zip

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

点击浏览该文件:二维码测试.foxdb

和之前差不多，二维码是一样的，而且没按数量来打印张数

这种效果？

对，就是这种。

还有就是，因为是这个标签比较小，内容比较多，规格也是需要打印出来的，但是如果打印0.5kg/袋或者1kg/袋的话就打印不下，所以打印的时候要改为0.5kg/袋=500.0g        1kg/袋=1000.0g    规格这个标签控件是直接绑定到规格变量的

 

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

点击浏览该文件:二维码测试.foxdb

这个规格我在表里面删除了，这个是之前打比方录的，实际是录入产品的时候没有的，只是打印的时候根据这个变量来识别规格，我加了个全局变量在里

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

点击浏览该文件:二维码测试(2).foxdb

面了

Dim cnames() As String = {"BarCode1", "BarCode2", "BarCode3"}
Dim ge As String = vars("规格")
ge = iif(ge="0.5kg/袋", "500.0g", iif(ge="1kg/袋", "1000.0g", ""))
For Each r As Row In Tables("表A").rows
    Dim cnt As Integer = r("数量") / (val(ge.replace("g", "")) / 1000)
    Dim st As Integer = Math.Ceiling(cnt /3)
    For i As Integer = 0 To 2
        e.Form.controls("label" & i & "1").text = r("品名")
        e.Form.controls("label" & i & "2").text = r("生产日期")
        e.Form.controls("label" & i & "3").text = r("批号")
        e.Form.controls("label" & i & "4").text = ge
    Next
    For i As Integer = 0 To st - 1
        For Each cname As String In cnames
            Dim bar As WinForm.BarCode = e.Form.Controls(cname)
            Dim str As String = ""
            For j As Integer = 1 To 35
                str &= Rand.Next(10)
            Next
            bar.Code = "*" & str
            bar.Text = str.substring(0,12) & vbcrlf & str.SubString(12, 12) & vbcrlf & str.SubString(24)
        Next
        If i = st-1 Then
            If i * 3 + 1>=cnt Then
                e.Form.controls("label11").text = Nothing
                e.Form.controls("label12").text = Nothing
                e.Form.controls("label13").text = Nothing
                e.Form.controls("label14").text = Nothing
                Dim bar As WinForm.BarCode = e.Form.Controls("BarCode2")
                bar.Code = ""
                bar.Text = ""
            End If
            If i * 3 + 2>=cnt Then
                e.Form.controls("label21").text = Nothing
                e.Form.controls("label22").text = Nothing
                e.Form.controls("label23").text = Nothing
                e.Form.controls("label24").text = Nothing
                Dim bar As WinForm.BarCode = e.Form.Controls("BarCode3")
                bar.Code = ""
                bar.Text = ""
            End If
        End If
        Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        doc.Preview
    Next
Next

来起了，老师，非常感谢！