主题：[求助]关联表的小计

老师好，在专业报表中，小计及合计我会用了，可在专业报表中打印关联表，小计

差不多的，在输出关联表数据后，在加上小计及合计的代码即可

Dim tbl As Table = Tables("订单")

Dim pds As List(Of String) = tbl.DataTable.GetValues("产品",tbl.Filter)

意思是获取关联表里的不同产品？比如

此主题相关图片如下：@1ncoo55u}9521s}g{qy8.png

此主题相关图片如下：ka}1lki9z5l8xakxzdk8dsj.png

老师，还没搞定，我用的是专业报表中的连续打印关联表，小计不能汇总，截图及代码如下：

代码在哪？

Dim doc As New Printdoc

Dim rx As prt.RenderText

Dim rt As prt.RenderTable

Dim Rows As List(Of DataRow)

Dim tbl As Table = Tables("承包合同")

Dim cnt As Integer

Dim tb2 As Table = Tables("分包合同")

For i As Integer = tbl.TopRow To tbl.BottomRow

    rx = New prt.RenderText

    ' rx.BreakBefore = prt.BreakEnum.Page '另起一页再打印

    rx.Style.FontSize = 14

    rx.Style.FontBold = True

    rx.Style.Spacing.Bottom = 5

    rx.Text = "承包合同: " & Tables("承包合同").Rows(i)("承包合同名称")

    rx.style.TextAlignHorz = prt.AlignHorzEnum.center

 

     doc.Body.Children.Add(rx)

     rt = New prt.RenderTable

  

    rt.Style.Spacing.Bottom = 3

rt.Cols.Count = 2

rt.Style.FontBold = True

rt.Cells(0,0).Text = "合同编号:" & Tables("承包合同").Rows(i)("承包合同编号")

rt.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Left

rt.Cells(1,0).Text = "建设单位:" & Tables("承包合同").Rows(i)("建设单位")

rt.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Left

 

rt.Cells(0,1).Text = "合同额:" & Tables("承包合同").Rows(i)("承包合同额元")&"元"

rt.Cells(0,1).Style.TextAlignHorz = prt.AlignHorzEnum.Right

rt.Cells(2,0).Text = "联系人:" & Tables("承包合同").Rows(i)("联系人")

rt.Cells(2,0).Style.TextAlignHorz = prt.AlignHorzEnum.Left

rt.Cells(1,1).Text = "结算值:" & Tables("承包合同").Rows(i)("承包结算值元")&"元"

rt.Cells(1,1).Style.TextAlignHorz = prt.AlignHorzEnum.Right

rt.Cells(2,1).Text = "已回款:" & Tables("承包合同").Rows(i)("已回款元")&"元"

rt.Cells(2,1).Style.TextAlignHorz = prt.AlignHorzEnum.Right

rt.Cells(3,1).Text = "回款率:" & Tables("承包合同").Rows(i)("回款率")&"%"

rt.Cells(3,1).Style.TextAlignHorz = prt.AlignHorzEnum.Right

 Doc.Body.Children.Add(rt)

    rt = New prt.RenderTable

 

    rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center

    rt.Style.TextAlignVert = prt.AlignVertEnum.Center

    rt.Style.Borders.Bottom = New prt.LineDef(0.3,Color.LightGray)

    rt.CellStyle.Spacing.All = 1

    rt.Cols.Count = 4

    rt.Cells(0,0).Text = "分包合同编号"

    rt.Cells(0,1).Text = "分包合同名称"

    rt.Cells(0,2).Text = "分包单位"

    rt.Cells(0,3).Text = "分包合同额元"

    rt.Cells(0,4).Text = "分包结算值元"

    rt.Cells(0,5).Text = "已付款元"

    rt.Cells(0,6).Text = "付款率%"

    rt.Cells(0,7).Text = "联系人"

    rt.Cells(0,8).Text = "质保日期"

 

   

 rt.rows(0).Style.Borders.Top = New prt.LineDef(1,Color.LightGray)

    rt.rows(0).Style.Borders.Bottom = New prt.LineDef(1,Color.LightGray)

 

    Rows = Tables("承包合同").Rows(i).DataRow.GetChildRows("分包合同")

    For r As Integer = 0 To Rows.Count - 1

        rt.Cells(r+1,0).Text = rows(r)("分包合同编号")

        rt.Cells(r+1,1).Text = rows(r)("分包合同名称")

        rt.Cells(r+1,2).Text = rows(r)("分包单位")

        rt.Cells(r+1,3).Text = rows(r)("分包合同额元")

        rt.Cells(r+1,4).Text = rows(r)("分包结算值元")

        rt.Cells(r+1,5).Text = rows(r)("已付款元")

        rt.Cells(r+1,6).Text = rows(r)("付款率")

        rt.Cells(r+1,7).Text = rows(r)("联系人")

        rt.Cells(r+1,8).Text = rows(r)("质保日期")

 

           Next

 doc.Body.Children.Add(rt)

    rx = New prt.RenderText

    rx.Style.FontBold = True

    rx.Style.Spacing.Top = 3

    rx.Text = "合同数目: " & Rows.count

    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right

    doc.Body.Children.Add(rx)

Next

For i As Integer = tb2.TopRow To tb2.BottomRow

 Rows = Tables("承包合同").Rows(i).DataRow.GetChildRows("分包合同")

cnt = rt.Rows.Count

    rt.Cells(cnt, 0).Text = "小计 "  '打印产品的小计

    rt.Cells(cnt,4).Text =tb2.compute("Sum(count)")

Next

doc.Preview