Dim cnames() As String = {"BarCode1", "BarCode2", "BarCode3"}
Dim ge As String = vars("规格").GetCheckedRows
ge = iif(ge="0.5kg/袋", "500.0g", iif(ge="1kg/袋", "1000.0g", ""))
For Each r As Row In Tables("数据表").rows
Dim cnt As Integer = r("qty") / (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("fullname")
e.Form.controls("label" & i & "2").text = r("outfactorydate")
e.Form.controls("label" & i & "3").text = r("jobnumber")
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.print
Next
Next
这个该怎么加呢
加好友 
发短信
Post By：2017/9/6 10:49:00 [显示全部帖子]
