Dim doc As New PrintDoc
Dim yy As Integer =0
Dim dr As Row = Tables("采购查询").Current
'----------采购表----------
Dim rt As New prt.RenderTable
Dim tb As Table = Tables("采购明细")
Dim ColNames As String() = New String(){"用品编号","用品名称","类型","价格","单位","数量","折扣","金额","备注"}
For c As Integer = 0 To ColNames.Length -1
rt.Cells(0,c).Text = ColNames(c)
rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth
rt.Cells(1, c).Text = "[Fields!" & ColNames(c) & ".Value]" '设置绑定表达式
Next
rt.RowGroups(0,1).Style.TextAlignVert = prt.AlignVertEnum.Center '第一行内容垂直居中
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All '将第一行作为表头.
rt.Style.GridLines.All = New prt.Linedef(Color.Gray)
rt.CellStyle.Spacing.All =1.5
rt.Cells(3,0).Text ="总计"
rt.Cells(3,1).SpanCols = 6
rt.Cells(3,7).Text ="[Aggregates!金额总计.Value]"
rt.Rows(0).Style.TextAlignVert = prt.AlignVertEnum.Center
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All
With rt.RowGroups(1,2)
.DataBinding.DataSource = BindTables("采购明细")
.DataBinding.Grouping.Expressions.Add("Fields!金额.Value")
doc.DataSchema.Aggregates.Add(New prt.DataBinding.Aggregate("金额总计", "Fields!金额.Value", .DataBinding, 0, 0))
End With
rt.RowGroups(1,1).DataBinding.DataSource = BindTables("采购明细") '将第二行绑定到订单表
加好友 
发短信
Post By：2015/3/17 19:54:00 [只看该作者]
此主题相关图片如下：qq截图20150317195349.png
