Dim doc As New PrintDoc '创建一个报表
doc.PageSetting.Width =210 '纸张宽度
doc.PageSetting.Height =297 '纸张高度
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
Dim rt As New prt.RenderTable() '定义一个表格对象
Doc.PageSetting.LeftMargin = 1 '设置左边距
Doc.PageSetting.RightMargin = 1 '设置右边距
Doc.PageSetting.TopMargin = 1 '设置上边距
Doc.PageSetting.BottomMargin = 1 '设置下边距
rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Height = "Parent.Height" '对象高度等于页面高度
rt.Rows.Count = 7 '设置行数
rt.Cols.Count = 5 '设置列数
rt.Style.GridLines.All = New prt.LineDef '设置网格线类型
rt.CellStyle.Spacing.All = 0.5 '内容距离网格线0.5毫米
'下面的代码向表格中填入值
Dim 值 As String="省,湖南省|省,湖北省|省,江西省|省,广东省|省,河南省|省,贵州省|省,广西壮族自治区|省,浙江省|省,安徽省|省,陕西省|省,重庆|省,上海|省,河北省|省,海南省|省,山西省|省,山东省|省,云南省|省,天津|省,四川省|省,江苏省|省,福建省|省,北京|省,辽宁省|省,黑龙江省|省,吉林省|省,内蒙古自治区|省,宁夏回族自治区|省,甘肃省|省,青海省|省,新疆维吾尔自治区|省,西藏自治区"
Dim Values() As String
Dim shu As Integer
Values = 值 .split("|")
For Index As Integer = 0 To Values.Length - 1
shu=shu+1
Dim rg As prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
bar.Code = Values(Index)
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rg.Style.Spacing.All = 3
Dim ra As New prt.RenderArea
ra.Children.Add(rg)
Dim rt0 As prt.RenderText
rt0.Text = Values(Index)
ra.Children.Add(rt0)
rt.Cells(shu \ 5 ,shu Mod 5).RenderObject =ra '将单元格内容设置为图片对象rm
Next
doc.Body.Children.Add(rt) '将表格对象加入到报表中
doc.Preview () '预览报表
提示未将对象引用设置到对象实例
是哪里错了？
加好友 
发短信
Post By：2022/6/25 9:20:00 [只看该作者]
