Dim rs As Row = Tables("Mainsale").Current
Dim ct As Integer = rs("qtytotal")
Dim doc As New PrintDoc() '定义一个报表
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
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
Else
For i As Integer = 1 To r("Qty") * 16
Functions.Execute("lable02",r,rs,ct,doc)
Next
End If
Else
If r("监造商") = Nothing Then
For i As Integer = 1 To r("Qty")
Functions.Execute("lable01",r,rs,ct,doc)
Next
Else
For i As Integer = 1 To r("Qty")
Functions.Execute("lable02",r,rs,ct,doc)
Next
End If
End If
Next
Doc.PrinterName = "Xprinter XP-DT426B"
Doc.Print()
End Select
内部函数是用专业报表来生成标签，历遍dt 里的每一行，根据 r("Qty") 来生成该行数据标签打印的份数
r("Qty") 的数量大的时候生成打印的速度太慢了，有办法优化一下？
加好友 
发短信
Post By：2022/4/3 1:19:00 [显示全部帖子]
