- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]添加的项目已经有所有者了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86754)
-- 发布时间：2016/6/24 21:38:00
-- [求助]添加的项目已经有所有者了
红袍老师，以下代码老是提示添加的项目已经有所有者了，是红色那一部分，可怎么修改？
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) \'加入到容器中
-- 发布时间：2016/6/24 21:38:00
--
此主题相关图片如下：已经有所有者.png
-- 发布时间：2016/6/25 9:06:00
--
1.更新狐表到最新版本
2.把项目下bin目录删除
最后重启项目试试
-- 发布时间：2016/6/25 10:03:00
--
你贴出的代码不完整。
错误提示的意思是，你一个打印对象，用Add方法添加了两次。
[此贴子已经被作者于2016/6/25 10:04:17编辑过]
-- 发布时间：2016/6/25 11:01:00
--
已经调整过了，狐爸爸