轉(zhuǎn)自csdn 作者cathy_girl
第一次使用Xtra的第三方控件

確實(shí)做的很好看~

嘗試使用了一下XtraReport控件的分組功能

方法如下：

添加一個(gè)名為XtraReport1的報(bào)表作為主報(bào)表

界面上Detail中放置主表顯示內(nèi)容的表格，再插入一個(gè)Subreport,在屬性面板將其ReportSource屬性設(shè)為子表的類名稱

1. Private Sub XtraReport1_BeforePrint(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles MyBase.BeforePrint
2.
3. Dim conn As New SqlClient.SqlConnection("server=DBServer;User ID=sa;Password=sa;database=test;min pool size=4;max pool size=4;packet size=3072;timeout=900")
4.
5. conn.Open()
6.
7. Dim strSql As String
8. strSql = "select wound_id as woundid,encounter_id as username "
9. strSql += "from wound "
10.
11.
12. Dim da As New SqlDataAdapter(strSql, conn)
13. da.Fill(dsTest, "Test")
14.
15. Me.DataSource = dsTest.Tables(0)
16. End Sub

Detail加載事件，加載一行，向子表傳遞一次參數(shù)

XrSubreport1為在主報(bào)表中添加的XrSubReport

SubReport1為向工程中加入的另一報(bào)表作為子報(bào)表來(lái)使用

在屬性設(shè)置框中設(shè)定XrSubreport1的ReportSource為SubReport1

但是subRpt = Me.XrSubreport1.ReportSource這句不能省，否則不能正確的顯示子報(bào)表

dsTest.Tables(0).Columns(0).ToString()為需要傳入子報(bào)表的參數(shù)
1. Private Sub Detail_BeforePrint(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles Detail.BeforePrint
2. Dim subRpt As New SubReport1()
3. subRpt = Me.XrSubreport1.ReportSource
4. subRpt.getDetail(GetCurrentColumnValue(dsTest.Tables(0).Columns(0).ToString()))
5. End Sub

在子表界面只保留Detail,放置顯示內(nèi)容的表格

并在子報(bào)表的程序文件中添加getDetail方法

1. Public Sub getDetail(ByVal strWoundId As String)
2. Dim dsTest As New DataSet()
3. Dim conn As New SqlClient.SqlConnection("server=DBServer;User ID=sa;Password=sa;database=test;min pool size=4;max pool size=4;packet size=3072;timeout=900")
4.
5. conn.Open()
6.
7. Dim strSql2 As String
8. strSql2 = "select WOUND_ID,WOUND_CONTENT_ID,WOUND_GRADE,EXUDATE_QUALITY "
9. strSql2 += "from wound_record "
10. strSql2 += "where WOUND_ID=" & strWoundId
11. Dim da2 As New SqlDataAdapter(strSql2, conn)
12. da2.Fill(dsTest, "Report2")
13. Me.DataSource = dsTest.Tables(0)
14. conn.Close()
15.
16. End Sub

這樣就可以啦~

然后拉一個(gè)窗體run一下主報(bào)表就可以看到我們做的主子報(bào)表

Dim testReport As New XtraReport1()
testReport.ShowPreview()