把专业报表放入循环内
Dim rs As Row = Tables("Mainsale").Current
Dim ct As Integer = rs("qtytotal")
Dim cmd As New SQLC
Dim dt As DataTable
cmd.C = "yydata"
cmd.C = "S {Detailesale}.Item as m,Qty,unit,{label}.*,RCId From {Detailesale} Inner JOIN {label} ON {label}.[item] = {Detailesale}.[Item] Where RCId = '" & rs("RCId") & "'"
dt = cmd.ExecuteReader()
For Each r As DataRow In dt.DataRows
Dim doc As New PrintDoc() '定义一个报表
If r("m") = "斤装小鲫鱼" Then
If r("监造商") = Nothing Then
For i As Integer = 1 To r("Qty") * 16
Functions.Execute("lable01",r,rs,ct,doc)
Next
……
……
Functions.Execute("lable02",r,rs,ct,doc)
Next
End If
End If
Doc.PrinterName = "Xprinter XP-DT426B"
Doc.Print()
Next
End Select
加好友 
发短信
Post By：2022/4/5 20:24:00 [显示全部帖子]
