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
dim c1 as integer = rt.Rows.Count
For Each dr As DataRow In drs '逐行打印此产品的订单
cnt = rt.Rows.Count
For c As Integer = 0 To tbl.Cols.Count - 1
rt.Cells(cnt, c).Text = dr(tbl.Cols(c).Name)
Next
Next
rt.Cells(c1,0).SpanRows = drs.count
cnt = rt.Rows.Count
rt.Cells(cnt, 0).Text = pd & "合计 " '打印产品的小计