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

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

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

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

应该首先建立关联吧。报表只属于某一张表，所以要显示多个表，应该要关联起来，我想。

 

 

期待大神的解答

此主题相关图片如下：无标题.jpg

 

是这个效果吗？

是这个效果

Dim doc As New PrintDoc '定义一个报表
For Each kh As String In DataTables("客户销售表").GetValues("客户名称")
    Dim rt As New prt.RenderText '定义一个文本对象
    Dim sum1 As Double = DataTables("客户销售表").Compute("sum(销售收入)", "客户名称 = '"& kh & "'")
    Dim sum2 As Double = DataTables("客户费用表").Compute("sum(销售成本)", "客户名称 = '"& kh & "'")
    Dim sum3 As Double = DataTables("客户费用表").Compute("sum(销售费用)", "客户名称 = '"& kh & "'")
    Dim sum4 As Double = DataTables("客户费用表").Compute("sum(销售折扣)", "客户名称 = '"& kh & "'")
    rt.Text = sum1 & " " & sum2 & " " & sum3 & " " & sum4
    doc.Body.Children.Add(rt) '将文本对象加入到报表
Next
doc.Preview() '预览

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

参考5楼，写代码。

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

'''
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()

汗，放进循环

 

Dim doc As New PrintDoc '定义一个新报表
For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容
    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) '设置字体
   
    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) &  "元."
   
    doc.Body.Children.Add(rt) '将表格加入到报表
Next
doc.Preview()

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

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