以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  添加的项目已经有所有者了  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173721)
--  作者：edisontsui
--  发布时间：2021/12/13 15:43:00
--  添加的项目已经有所有者了
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2021.12.4.11
错误所在事件：窗口,ZJ铭牌标签,Button1,Click
详细错误信息：
添加的项目已经有所有者了。

下面这段代码执行的时候老是出现上面的提示，请问是哪里的问题呢？谢谢。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码有问题.txt
--  作者：有点蓝
--  发布时间：2021/12/13 16:10:00
--  
重复添加同一个对象，就会是这个提示，调换一下代码位置

               ra.Children.Add(rt)

            Next

            Doc.Body.ChildRen.Add(ra)
        End If \'珠江判断结束

    Next
Doc.Preview() \'预览报表
--  作者：edisontsui
--  发布时间：2021/12/13 17:05:00
--  
这种用法无法将下面定义的"数量个"每张标签都打印出来，只是打印了一张标签：
Dim s1 As Integer = Val(r("数量个"))

下面这个代码就可以把Val(r("数量个"))定义的所有标签都打印出来。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码无问题.txt
--  作者：有点蓝
--  发布时间：2021/12/13 17:15:00
--  
那就自己对比一个区别在哪里咯。初始化ra变量放到循环里面，也才能在循环里面添加ra

       r("纸箱标签打印") = "纸箱标签已打印"
        r.save

            For o As Integer = 1 To s1
                ra = New prt.RenderArea
                ra.Width = "Parent.Width"
                ra.Height = "Parent.height"
                ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never
                ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never