主题：怎么设计这个报表

如图11  想把 《发货单表》的关联数据 做成 图 22一样的报表，该怎么设计。现在没有办法解决的就是 怎么把关联表中的《公斤数》 对应到相应的 《重量》

 

已经看过使用帮助，和专业报表，实在没有办法才 在此求助，还望详解， 

此主题相关图片如下：11.png


此主题相关图片如下：22.png

新建一个项目。设计好这两个表，输入一些测试数据，然后发上来看看。

已经发上去了，请各位大师指点

 

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

点击浏览该文件:管理项目8.rar

Dim doc As New PrintDoc
Dim rt As New prt.RenderTable()
doc.Body.Children.Add(rt)
rt.Style.GridLines.All = New prt.Linedef
rt.cells(0,0).text = "客户名"
rt.cells(0,1).text = "地区"
rt.cells(0,2).text = "重量1"
rt.cells(0,3).text = "重量2"
rt.cells(0,4).text = "重量3"
rt.cells(0,5).text = "重量4"
rt.cells(0,6).text = "重量5"
For i As Integer = Tables("发货单表").TopPosition To Tables("发货单表").BottomPosition
    Dim dr As DataRow  = Tables("发货单表").Rows(i).DataRow
    Dim crs As List(of DataRow) = dr.GetChildRows("公斤数录入")
    If crs.count > 0 Then
        rt.Rows.Count = rt.Rows.count +1
        Dim st As Integer = rt.Rows.count - 1 '起始行位置
        Dim nt As Integer = st '当前行位置
        Dim cp As Integer = 2  '当前列位置
        rt.cells(st,0).text = dr("客户名")
        rt.cells(st,1).text = dr("地区")
        For n As Integer = 0 To crs.count -1
            rt.cells(nt,cp).text = crs(n)("公斤数")
            cp = cp + 1
            If cp = 7 Then
                cp=2
                nt = nt +1
            End If
        Next
        rt.cells(st,0).SpanRows = nt -st +1
        rt.cells(st,1).SpanRows = nt -st +1   
    End If
Next
doc.Preview() '预览报表

感谢大师指点。重新改了一下，如下问题不能解决，还望大师再次指点迷经

 

 

 

1  ”公斤数录入“ 里面的单价该如何 指定

　　行政区域》里面有　６个价格，分别对应　《接收单位》的　”ｓｋｙ“，　”船“

　　空运成本　　　　　”ｓｋｙ　　

　　空运成本１　　　　　”ｓｋｙ　　

　　空运价格　　　　　”ｓｋｙ　　　　

　　空运价格１　　　　　”ｓｋｙ　　　　

　　海运成本　　　　　”海运　

　　海域价格　　　　　”海运　

 

条件： 如果 《公斤数录入》表 的”包装“ 列  被选为（ 纸箱） 并且 ”接收单位列“ 为 （sky）   则 单价）列的 值 =  行政区域》表 里的 “打箱价格”列

          如果 《公斤数录入》表 的”包装“ 列 被选为（ 麻袋） 并且 ”接收单位列“ 为 （sky）   则 单价）列的 值 =  行政区域》表 里的   ”空运价格”列

          如果 《公斤数录入》表 的”包装“ 列 被选为（ 纸箱） 并且 ”接收单位列“ 为 （船）     则 单价）列的 值 =  行政区域》表 里的  “海运价格”列

 

2 怎么插入表标题 ：标题名称 =  发货日期 +  接收单位

 

3 怎么筛选  筛选条件：发货时间　＝　金天　，　　接收单位　＝　ｓｋｙ　

 

4 如何自动保存报表 ： 文件名形式（接收单位+客户名+发货日期）

 

5 报表格式问题：怎么样才能让报表 公斤数录入》表中的  内容列 在公斤数的下一行显示呢？

 

6 怎么统计件数呢？ 我知道应该是 统计行数就可以吧？ 代码应该怎么写呢？  惭愧

 

虽然也多方查找资料，也详细的看了帮助，和专业报表等信息，还是很无奈， 感觉各位前辈真是高人。 还望不吝赐教阿

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

点击浏览该文件:管理项目81.rar

此主题相关图片如下：??.png