Dim doc As New PrintDoc
Dim rt As New Prt.RenderTable
Dim rx As prt.RenderText
Dim cnt As Integer
Dim tbl As Table = Tables("订单主表")
Dim drs As List(Of DataRow)
Dim pds As List(Of String) = tbl.DataTable.GetValues("产品名称",tbl.Filter)
rt.Style.GridLines.All = New prt.LineDef(0.3,Color.LightGray)
rt.CellStyle.Spacing.All = 1
rt.Style.Font = tbl.Font
For c As Integer = 0 To tbl.Cols.Count - 1 '生成列标题
rt.Cells(0,c).Text = tbl.Cols(c).Name
rt.Cols(c).Width = tbl.Cols(c).PrintWidth
Next
For Each pd As String In pds '分产品打印
If tbl.Filter > "" Then
drs = tbl.DataTable.Select("产品名称 = '" & pd & "' And " & tbl.Filter)
Else
drs = tbl.DataTable.Select("产品名称 = '" & pd & "'" )
End If
For Each dr As DataRow In drs '逐行打印此产品的订单
cnt = rt.Rows.Count
For i As Integer = 0 To tbl.Cols.Count - 1
rt.Cells(cnt, 0).Text = dr("订单编号")
rt.Cells(cnt, 1).Text = dr("产品名称")
rt.Cells(cnt, 2).Text = dr("客户名称")
rt.Cells(cnt, 3).Text = dr("切料重量")
Next
Next
cnt = rt.Rows.Count
rt.Cells(cnt, 0).Text = "小计 " & pd '打印产品的小计
rt.Cells(cnt,3).Text = tbl.compute("Sum(切料重量)", "产品名称 = '" & pd & "'")
Next
cnt = rt.Rows.Count
rt.Cells(cnt, 0).Text = "合计 " '打印合计
rt.Cells(cnt, 5).Text = tbl.compute("Sum(切料重量)")
doc.Body.Children.Add(rt)
加好友 
发短信
Post By：2018/6/20 17:36:00 [显示全部帖子]
