红袍老师，以下代码老是提示添加的项目已经有所有者了，是红色那一部分，可怎么修改？
Dim doc As New PrintDoc '定义一个报表
Dim tbl As Table = Tables("FAJHB")
Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin = 5 '设置上边距
Doc.PageSetting.BottomMargin = 5 '设置下边距
For i As Integer = tbl.TopRow To tbl.BottomRow
Dim CurRow As Row = tbl.Rows(i)
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rx As New prt.RenderText '定义一个文本对象
Dim rrt As New prt.RenderText '定义一个文本对象
Dim rtx As New prt.RenderText '定义一个文本对象
Dim ra As New prt.RenderArea '定义一个容器
ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止容器因为分页而被垂直分割
'加入标题
rtx.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容
rtx.Style.TextAlignHorz = prt.AlignHorzEnum.Right '靠右对齐
rtx.Style.Borders.Bottom = New prt.LineDef(0.3, Color.Green) '设置底边框
rtx.Style.Padding.Bottom = 0.5 '底端内容缩进0.5毫米
rtx.Style.FontSize = 8 '字体大小为8磅
Doc.PageHeader = rtx '作为页眉使用
ra.Children.Add(rtx) '加入到容器中
加好友 
发短信
Post By：2016/6/24 21:38:00 [显示全部帖子]
此主题相关图片如下：已经有所有者.png