Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表：关联表分组打印（新增2个问题）


  共有8383人关注过本帖树形打印复制链接

主题：专业报表：关联表分组打印（新增2个问题）
帅哥，在线噢！
狐狸爸爸
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/2/28 14:14:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/1 9:02:00 [显示全部帖子]

最好做个简单的例子，设计好这两个表，输入几行测试数据，然后发上来，并说明问题，方便别人测试分析调试。

例子尽量简单，抓住关键点就行。
 回到顶部
帅哥，在线噢！
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/1 9:37:00 [显示全部帖子]

你的问题不知一点点，你学了很多，但是有些概念还是模糊，我建议您按顺序系统学习帮助文件，这样才能理解，理解了才能灵活运用。

 

稍微改了一下：

 

Dim doc As New PrintDoc '定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim rte As prt.RenderText '定义一个文本对象
rte = New prt.RenderText
rte.Text = "生产计划通知单" '设置文本对象的内容
rte.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rte.Style.Spacing.Bottom = 5 '设置下间隔为3毫米
rte.Style.Font = New Font("宋体", 16, FontStyle.Bold)
doc.Body.Children.Add(rte) '将文本对象加入到报表

'设置水印
rte = New prt.RenderText '设置文本对象的内容
rte.Text = "海盐三马标准件有限公司生产计划通知单" '设置文本内容
rte.Width = "Parent.Width" '宽度等于页面宽度
rte.Height = "Parent.Height" '高度等于页面高度
rte.Style.TextAngle = 45 '旋转45度
rte.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中对齐
rte.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中对齐
rte.Style.FontSize = 27 '字体大小为8磅
rte.Style.TextColor = Color.Gray '文本颜色为灰色
Doc.WaterMark = rte '作为页眉使用

Dim rta As New prt.RenderTable

rte = New prt.RenderText

rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "合同编号: " & Tables("订单表").Current("编号")
doc.Body.Children.Add(rte)

rte = New prt.RenderText
rte.y = "Prev.Bottom - 8"
rte.x = "Prev.Bottom + 70"
rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "原合同号: " & Tables("订单表").Current("合同号")
doc.Body.Children.Add(rte)

rte = New prt.RenderText
rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "客户编号: " & Tables("订单表").Current("客户编号")
doc.Body.Children.Add(rte)

rte = New prt.RenderText
rte.y = "Prev.Bottom - 8"
rte.x = "Prev.Bottom + 63"
rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "客户简称: " & Tables("订单表").Current("客户简称")
doc.Body.Children.Add(rte)


rte = New prt.RenderText
rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "交期: " & Tables("订单表").Current("交期")
doc.Body.Children.Add(rte)


rte = New prt.RenderText
rte.y = "Prev.Bottom - 8"
rte.x = "Prev.Bottom + 55"
rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "总金额: " & Tables("订单表").Current("金额")
doc.Body.Children.Add(rte)

Dim tbl As Table = Tables("订单表.订单明细表")
Dim Rows As List(Of DataRow)
Dim Regions As List(Of String) = tbl.DataTable.GetUniqueValues("编号 = '" & Tables("订单表").Current("编号") & "'","名称")
doc.Pagesetting.LandScape = True
For Each Region As String In Regions
    rte= New prt.RenderText
    rte.Style.FontSize = 14
    rte.Style.FontBold = True
    rte.Style.Spacing.Bottom = 2
    rte.Text = "名称: " & Region
    doc.Body.Children.Add(rte)
   
    rta  = New prt.RenderTable
    rta.Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rta.Style.TextAlignVert = prt.AlignVertEnum.Center
    rta.Style.Borders.Bottom = New prt.LineDef(0.3,Color.LightGray)
    rta.CellStyle.Spacing.All = 1
    rta.Cols.Count = 4
    rta.Cells(0,0).Text = "规格"
    rta.Cells(0,1).Text = "数量"
    rta.Cells(0,2).Text = "单位"
    rta.Cells(0,3).Text = "业务科录入_头标"
    rta.Cells(0,4).Text = "凹凸"
    rta.Cells(0,5).Text = "对边对角"
    rta.Cells(0,6).Text = "要求材质"
    rta.Cells(0,7).Text = "线径"
    rta.Cells(0,8).Text = "线材所需"
    rta.rows(0).Style.Borders.Top = New prt.LineDef(1,Color.LightGray)
    rta.rows(0).Style.Borders.Bottom = New prt.LineDef(1,Color.LightGray)
    Rows = tbl.DataTable.Select("[名称] = '" & Region & "' And 编号 = '" & Tables("订单表").Current("编号") & "'")
    For r As Integer = 0 To Rows.Count - 1 '遍历关联表每一行
        rta.Cells(r+1,0).Text = rows(r)("规格")
        rta.Cells(r+1,1).Text = rows(r)("数量")
        rta.Cells(r+1,2).Text = rows(r)("单位")
        rta.Cells(r+1,3).Text = rows(r)("业务科录入_头标")
        rta.Cells(r+1,6).Text = rows(r)("要求材质")
        rta.Cells(r+1,7).Text = rows(r)("线径")
        rta.Cells(r+1,8).Text = rows(r)("线材所需")
        If rows(r)("凹凸") = True Then
            rte = New prt.RenderText
            rte.text = "凹"
            rta.Cells(r+1,5).RenderObject = rte
        Else
            rte = New prt.RenderText
            rte.text = "凸"
            rta.Cells(r+1,5).RenderObject = rte
        End If
    Next
   
    doc.Body.Children.Add(rta)
Next
rte= New prt.RenderText
rte.Style.FontBold = True
rte.Style.Spacing.Top = 3
rte.Text = "产品数目: " & Tables("订单表.订单明细表").Rows.Count
rte.Style.TextAlignHorz = prt.AlignHorzEnum.Right
doc.Body.Children.Add(rte)

doc.Preview

 

[此贴子已经被作者于2013-3-1 9:41:55编辑过]
 回到顶部
帅哥，在线噢！
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/1 14:01:00 [显示全部帖子]

1、


rte.Text = "名称: " & Region

 

改为：

 

rte.Text = "            名称: " & Region

 

 

2、

 

rta.Cells(0,3).Text = "业务科录入_头标"

改为：

 

rta.Cells(0,3).Text = "头标"
 回到顶部
帅哥，在线噢！
狐狸爸爸
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/3/1 14:42:00 [显示全部帖子]

呵呵，怎么感觉这根本就不是你写的代码啊：

 

 

Dim doc As New PrintDoc '定义一个报表
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim rte As prt.RenderText '定义一个文本对象
rte = New prt.RenderText
rte.Text = "生产计划通知单" '设置文本对象的内容
rte.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中
rte.Style.Spacing.Bottom = 5 '设置下间隔为3毫米
rte.Style.Font = New Font("宋体", 16, FontStyle.Bold)
doc.Body.Children.Add(rte) '将文本对象加入到报表

'设置水印
rte = New prt.RenderText '设置文本对象的内容
rte.Text = "海盐三马标准件有限公司生产计划通知单" '设置文本内容
rte.Width = "Parent.Width" '宽度等于页面宽度
rte.Height = "Parent.Height" '高度等于页面高度
rte.Style.TextAngle = 45 '旋转45度
rte.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中对齐
rte.Style.TextAlignVert = prt.AlignVertEnum.Center '垂直居中对齐
rte.Style.FontSize = 27 '字体大小为8磅
rte.Style.TextColor = Color.Gray '文本颜色为灰色
Doc.WaterMark = rte '作为页眉使用

Dim rta As New prt.RenderTable

rte = New prt.RenderText

rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "合同编号: " & Tables("订单表").Current("编号")
doc.Body.Children.Add(rte)

rte = New prt.RenderText
rte.y = "Prev.Bottom - 8"
rte.x = "Prev.Bottom + 70"
rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "原合同号: " & Tables("订单表").Current("合同号")
doc.Body.Children.Add(rte)

rte = New prt.RenderText
rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "客户编号: " & Tables("订单表").Current("客户编号")
doc.Body.Children.Add(rte)

rte = New prt.RenderText
rte.y = "Prev.Bottom - 8"
rte.x = "Prev.Bottom + 63"
rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "客户简称: " & Tables("订单表").Current("客户简称")
doc.Body.Children.Add(rte)


rte = New prt.RenderText
rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "交期: " & Tables("订单表").Current("交期")
doc.Body.Children.Add(rte)


rte = New prt.RenderText
rte.y = "Prev.Bottom - 8"
rte.x = "Prev.Bottom + 55"
rte.Style.FontSize = 14
rte.Style.FontBold = True
rte.Style.Spacing.Bottom = 2
rte.Text = "总金额: " & Tables("订单表").Current("金额")
doc.Body.Children.Add(rte)

Dim tbl As Table = Tables("订单表.订单明细表")
Dim Rows As List(Of DataRow)
Dim Regions As List(Of String) = tbl.DataTable.GetUniqueValues("编号 = '" & Tables("订单表").Current("编号") & "'","名称")
doc.Pagesetting.LandScape = True
For Each Region As String In Regions
   
    rta  = New prt.RenderTable
    rta.Style.TextAlignHorz = prt.AlignHorzEnum.Center
    rta.Style.TextAlignVert = prt.AlignVertEnum.Center
    rta.Style.Borders.Bottom = New prt.LineDef(0.3,Color.LightGray)
    rta.CellStyle.Spacing.All = 1
    rta.Cols.Count = 4
    rta.Cells(0,0).Text = "规格"
    rta.Cells(0,1).Text = "数量"
    rta.Cells(0,2).Text = "单位"
    rta.Cells(0,3).Text = "业务科录入_头标"
    rta.Cells(0,4).Text = "凹凸"
    rta.Cells(0,5).Text = "对边对角"
    rta.Cells(0,6).Text = "要求材质"
    rta.Cells(0,7).Text = "线径"
    rta.Cells(0,8).Text = "线材所需"
    rta.rows(0).Style.Borders.Top = New prt.LineDef(1,Color.LightGray)
    rta.rows(0).Style.Borders.Bottom = New prt.LineDef(1,Color.LightGray)
    rta.cells(1,0).text = "名称: " & Region
    rta.cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
    rta.cells(1,0).SpanCols = 8
   
    Rows = tbl.DataTable.Select("[名称] = '" & Region & "' And 编号 = '" & Tables("订单表").Current("编号") & "'")
    For r As Integer = 0 To Rows.Count - 1 '遍历关联表每一行
        rta.Cells(r+2,0).Text = rows(r)("规格")
        rta.Cells(r+2,1).Text = rows(r)("数量")
        rta.Cells(r+2,2).Text = rows(r)("单位")
        rta.Cells(r+2,3).Text = rows(r)("业务科录入_头标")
        rta.Cells(r+2,6).Text = rows(r)("要求材质")
        rta.Cells(r+2,7).Text = rows(r)("线径")
        rta.Cells(r+2,8).Text = rows(r)("线材所需")
        If rows(r)("凹凸") = True Then
            rte = New prt.RenderText
            rte.text = "凹"
            rta.Cells(r+2,5).RenderObject = rte
        Else
            rte = New prt.RenderText
            rte.text = "凸"
            rta.Cells(r+2,5).RenderObject = rte
        End If
    Next
   
    doc.Body.Children.Add(rta)
Next
rte= New prt.RenderText
rte.Style.FontBold = True
rte.Style.Spacing.Top = 3
rte.Text = "产品数目: " & Tables("订单表.订单明细表").Rows.Count
rte.Style.TextAlignHorz = prt.AlignHorzEnum.Right
doc.Body.Children.Add(rte)

doc.Preview


 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询