打印后台数据
还记得SQLCommand吗?还记得SQLCommand的ExecuteReader方法吗?
有了ExecuteReader,我们可以直接利用SQL查询语言取得后台数据,得到一个临时的DataTable,使得打印后台数据成为可能:
本节同样要直接打印出2009年6月的订单:
Dim
doc As New PrintDoc其实上面的代码,是一个通用SQL查询结果打印程序,你要做的只是修改SQL语句来用于不同的统计。
CrossTableBuilder和CrossTableBuilder提供了强大的统计功能,这两个类都有一个FromServer参数,只要设为True,将对后台数据进行统计。
这两个类的Build方法有一个可选参数,如果设为True,将只生成一个临时的DataTable,而不生成Table。
这样我们就可以直接统计并打印后台数据,而不需要首先在界面中显示统计结果:
Dim dt
As DataTable
Dim g As
New
GroupTableBuilder("统计表1",
DataTables("订单"))
g.Groups.AddDef("产品")
g.Totals.AddDef("数量")
g.FromServer = True
dt = g.Build(True)
Dim doc As
New
PrintDoc
Dim rt As
New prt.RenderTable
Dim Count As
Integer =
0
For Each
Col AS
DataCol
In Dt.DataCols
rt.Cells(0,Count).Text
= Col.Name
For r
As
integer =
0
To dt.DataRows.Count -
1
rt.Cells(r +1,Count).Text
= dt.DataRows(r)(Col.Name)
Next
Count = Count + 1
Next
rt.Style.Gridlines.All = New prt.Linedef(Color.Gray)
rt.CellStyle.Spacing.All = 1
rt.Rows(0).Style.TextAlignHorz
= prt.AlignHorzEnum.Center
doc.Body.Children.Add(rt)
doc.Preview()