- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎么设计这个报表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19077)
-- 发布时间：2012/4/26 16:10:00
-- 怎么设计这个报表
如图11 想把 《发货单表》的关联数据 做成 图 22一样的报表，该怎么设计。现在没有办法解决的就是 怎么把关联表中的《公斤数》 对应到相应的 《重量》
已经看过使用帮助，和专业报表，实在没有办法才 在此求助，还望详解，
此主题相关图片如下：11.png
此主题相关图片如下：22.png
-- 发布时间：2012/4/26 17:34:00
--
新建一个项目。设计好这两个表，输入一些测试数据，然后发上来看看。
-- 发布时间：2012/4/27 0:23:00
--
已经发上去了，请各位大师指点
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目8.rar |
-- 发布时间：2012/4/27 9:20:00
--
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() \'预览报表
-- 发布时间：2012/4/29 17:17:00
-- 怎么设计这个报表，补充问题
感谢大师指点。重新改了一下，如下问题不能解决，还望大师再次指点迷经
1 ”公斤数录入“ 里面的单价该如何 指定
行政区域》里面有 ６个价格，分别对应 《接收单位》的 ”ｓｋｙ“， ”船“
空运成本 ”ｓｋｙ
空运成本１ ”ｓｋｙ
空运价格 ”ｓｋｙ
空运价格１ ”ｓｋｙ
海运成本 ”海运
海域价格 ”海运
条件： 如果 《公斤数录入》表 的”包装“ 列 被选为（ 纸箱） 并且 ”接收单位列“ 为 （sky） 则 单价）列的 值 = 行政区域》表 里的 “打箱价格”列
如果 《公斤数录入》表 的”包装“ 列 被选为（ 麻袋） 并且 ”接收单位列“ 为 （sky） 则 单价）列的 值 = 行政区域》表 里的 ”空运价格”列
如果 《公斤数录入》表 的”包装“ 列 被选为（ 纸箱） 并且 ”接收单位列“ 为 （船） 则 单价）列的 值 = 行政区域》表 里的 “海运价格”列
2 怎么插入表标题 ：标题名称 = 发货日期 + 接收单位
3 怎么筛选 筛选条件：发货时间 ＝ 金天 ， 接收单位 ＝ ｓｋｙ
4 如何自动保存报表 ： 文件名形式（接收单位+客户名+发货日期）
5 报表格式问题：怎么样才能让报表 公斤数录入》表中的 内容列 在公斤数的下一行显示呢？
6 怎么统计件数呢？ 我知道应该是 统计行数就可以吧？ 代码应该怎么写呢？ 惭愧
虽然也多方查找资料，也详细的看了帮助，和专业报表等信息，还是很无奈， 感觉各位前辈真是高人。 还望不吝赐教阿
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目81.rar |
此主题相关图片如下：??.png