rt.Cells(1,0).Text= "Part No.:"
rt.Cells(1,0).Style.WordWrap = False
rt.cells(1,1).Text = r("PartNo")
rt.Cells(2,0).Text= "GSS Part No.:"
rt.cells(2,1).Text = r("GSSPart")
rt.Cells(3,0).Text= "Qty:"
rt.cells(3,1).Text = r("OpenQty")& " PCS"
rt.cells(3,1).Text = ("OpenQty")& " PCS"
rt.cells(4,0).SpanCols =2
doc.Body.Children.Add(rt) '将表格对象加入到报表中
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
bar.Code = "123213232331232"
rg = new prt.RenderGraphics
rg.Height = 20
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rt.cells(4,0).RenderObject = rg
Next
……