主题：一个报表显示两个及以上表的数据

在例子中有一个客户销售表及一个客户费用表，打算制作一个专业报表，按客户名称及销售收入、销售费用的列表项目逐户逐项显示，不用表格而是文字叙述，比如 客户A，（1）销售收入20000元，（2）销售成本12000元、销售费用3500元、销售折扣1000元；

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.foxdb

是这个效果

但是不想用关联，除了这两张表外，可能还需要更多表中的数据添加到这一个报表中

上述结果不是我想要的结果，我编写以下一段代码，想实现 序号、客户名称、销售金额等用文字形式，叙述每一个客户的情况，但是为什么只能显示最后一行的呢

'''
Dim doc As New PrintDoc '定义一个新报表
Dim rt As New prt.RenderText '定义一个新表格
Dim tb As Table = Tables("财务报告")
rt.Style.Font = tb.Font
rt.Style.TextIndent = 12 '首行缩进12毫米
rt.Style.LineSpacing = 200 '设置双倍行距
rt.Style.Font = New Font("宋体", 14) '设置字体
For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容
    rt.Text =  tb(r,0) & "、" & tb(r,1) & "销售金额" & tb(r,2) & "元，销售成本" & tb(r,3) & "元，销售费用" & tb(r,4) & "元，销售折扣" & tb(r,5) & "元，销售税金" & tb(r,6) & "元，其他支出" & tb(r,7) &  "元。"
Next
doc.Body.Children.Add(rt) '将表格加入到报表
doc.Preview()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.foxdb

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.11.11.1
错误所在事件：Build
详细错误信息：
The added item already has the owner.

好了，可以了

可以让序号及客户名称加粗，其他的不加精吗

某行数据中某一例数据为则不显示该列怎么处理，比如某个客户的销售折扣为零，则在叙述该客户 不显示“销售折扣0”，以下该怎么修改

rt.Text =  tb(r,0) & "、" & tb(r,1) & "  销售金额" & tb(r,2) & "元,销售成本" & tb(r,3) & "元,销售费用" & tb(r,4) & "iff tb(r,5)=0,"", 元,销售折扣" & tb(r,5) & "元,销售税金" & tb(r,6) & "元,其他支出" & tb(r,7) &  "元."

定义了rpar段落对象 和 rt 表格文本，其中rpar段落对象为粗体 rt表格文本为一般字体，以下这段代码生成的文本为rpa和rt分别在两行，怎么能组合一行而且定义的字体不变。

'''
Dim doc As New PrintDoc '定义一个新报表
Dim tb As Table = Tables("财务报告")
For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容
    Dim rpar As New prt.RenderParagraph() '定义一个段落对象
    Dim f As New Font("宋体",16,FontStyle.Bold) '定义一个同样但加粗的字体
    rpar.Content.AddText(tb(r,0) & "、" & tb(r,1),f)
    rpar.Style.TextIndent = 12 '首行缩进12毫米
    rpar.Style.LineSpacing = 200 '设置双倍行距
    rpar.Style.Spacing.Bottom = 4
    Dim rt As New prt.RenderText '定义一个新表格
    rt.Style.Font = tb.Font
    rt.Style.TextIndent = 12 '首行缩进12毫米
    rt.Style.LineSpacing = 200 '设置双倍行距
    rt.Style.Font = New Font("宋体", 14) '设置字体
    rt.Text = "销售金额" & tb(r,2) & "元,销售成本" & tb(r,3) & "元,销售费用" & tb(r,4) & "元," & iif(tb(r,5)=0,"","销售折扣" & tb(r,5)） & "元,销售税金" & tb(r,6) & "元,其他支出" & tb(r,7) &  "元."
    doc.Body.Children.Add(rpar)
    doc.Body.Children.Add(rt) '将表格加入到报表                                                                                    iff(tb(r,3)=0,"","元，集资情况_预付利息" & tb(r,3))
Next
doc.Preview()