现在的位置: 首页 > 综合 > 正文

.NET环境下水晶报表使用总结 --[转]来自

2013年10月09日 ⁄ 综合 ⁄ 共 4087字 ⁄ 字号 评论关闭

Dim dsdataSet As New DataSet()

Dim oRpt As New rptClient()   '已建立的报表rptClient

请读者自行填充数据集dsdataSet

'使用“报表引擎”对象模型将填充的数据集,传递给报表

oRpt.SetDataSource(dsdataSet.Tables(0))

' 将带有数据的报表对象绑定到 Windows 窗体查看器,rptVew(CrystalReportViewer控件)

rptVew.ReportSource = oRpt

注意   FillDataSet 方法可连接到指定的数据库,提取数据,然后断开数据库连接。如果您希望将数据库中的多个表添加到报表中,请使用 SQL JOIN 语句将这些表联接在一起;然后在 FillDataSet 方法中指定一个结果表

六、创建主从报表

在报表中,有许多报表是主从表结构,比如订单与订单商品明细,订单是一个表中的一条记录,而分录是另一个表中的多条记录,两个表通过一个字段关联起来,这种报表可利用其分组功能实现,

1.      新建一个工程

2.      往FORM1中添加一个CrystalReportViewer控件

3.      在服务噐资源管理器中连接到SQL SERVER 2000上的Northwind数据库

4.      添加一个数据集Dataset1,将服务器资源管理器中的Orders和 Order Details加入到数据集中。

5.      添加一个水晶报表,使用报表专家,在项目数据中选择“ADO.NET数据集”,插入表Orders和 Order Details,“链接”中是关联字段的链接,在“字段”中选择要显示的主表和明细表的字段,组中选择分组依据为Orders表OrdersID字段,总计,图表,选择(可进行筛选),样式(可设置报表标题),可自行设置。设置完后,点击完成。

6.      在报表设计器中调整需要显示的字段的位置、宽度等。

7.      在窗口中添加代码。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 Dim oRpt As New CrystalReport1()

 Dim dsdataSet As New Dataset1()

 Dim CN As New Data.SqlClient.SqlConnection("data source=PMSERVER;initial catalog=Northwind;user id=sa;password=sa")

 CN.Open()

 Dim daOrders As New Data.SqlClient.SqlDataAdapter("select * from orders", CN)

 daOrders.Fill(dsdataSet, "orders")

 Dim daDetails As New Data.SqlClient.SqlDataAdapter("select * from [Order Details]", CN)

 daDetails.Fill(dsdataSet, "Order Details")

 '使用“报表引擎”对象模型将填充的数据集,传递给报表

 oRpt.SetDataSource(dsdataSet)

 CrystalReportViewer1.ReportSource = oRpt

End Sub

8、运行程序

七、用程序改变报表中text的文本

代码如下:

Dim GetTextObject As TextObject

' 按名称获取 ReportObject,将其转换为 TextObject,并返回此对象。

GetTextObject = orpt.ReportDefinition.ReportObjects.Item("text13")

GetTextObject.Text = "XXXX系统"

总结:水晶报表具有非常强大的功能,还可进行导出WORD、EXCEL、RTF等文件,还可生成复杂、漂亮图表,是进行WEB和WINDOWS报表开发的利器。  

抱歉!评论已关闭.