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
dim c2 as integer = rt.Rows.Count
dim ci as integer = 0
For i as integer = 0 to drs.count - 1 '逐行打印此产品的订单
dim dr a datarow = drs (i)
cnt = rt.Rows.Count
For c As Integer = 0 To tbl.Cols.Count - 1
if i > 0 andalso c = 1 then
if drs (i-1)(tbl.Cols(c).Name) <> dr(tbl.Cols(c).Name) then
dim rr as integer = i - ci
rt.Cells(c2,1).SpanRows = rr
c2 = c2 + rr
ci = iend if
end if
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 & "合计 " '打印产品的小计
加好友 
发短信
Post By：2021/1/6 8:38:00 [显示全部帖子]
