.NET基礎學習:經典水晶報表設計三則

摘要：.NET基礎學習:經典水晶報表設計三則


.NET基礎學習:經典水晶報表設計三則
一、經典水晶報表設計三則之“分欄”
　　
　　借助"多列格式化"功能實現。
　　
　　1. 啟用"多列格式化"功能。
　　
　　(1) 進入“節專家”對話框，并在“節”中選擇“詳細資料”。
　　
　　(2) 在"公用"選項卡選中“多列格式化”，此時會出現“布局”選項卡。
　　
　　2. 調整布局，實現分欄效果。
　　
　　要想分兩欄，調整“詳細資料大小”的寬度，確保寬度的兩倍小于去除頁邊距后的頁面寬度，才能一行顯示兩行記錄。
　　
　　要想分三欄，調整“詳細資料大小”的寬度，確保寬度的三倍小于去除頁邊距后的頁面寬度，才能一行顯示三行記錄。
　　
　　依次類推，實現其它欄數的分欄。
　　　　
　　參考：“布局”選項卡（節專家）介紹

　　當選定詳細信息部分且選中“公用”選項卡上的“多列格式化”框后，出現“布局”選項卡。
　　
　　使用“布局”選項卡以多列格式設置報表。即，不是一直沿著頁面向下打印數據，而是可以設置多列以使數據在列之間流動。還可以在頁面上按先行后列的方式打印數據，即先打印每列中的第一個記錄，然后打印每列中的第二個記錄，然后打印第三個記錄，依此類推。該對話框分為四個更小的框。
　　
　　詳細資料大小

　　該框使您能夠指定一個詳細資料的尺寸（高度和寬度）。確定所希望的每個詳細資料的寬度（基于字符數、字體大小，等等）并在“寬度”編輯框中輸入該值。
　　
　　確定所希望的每個詳細資料的高度（基于詳細資料內的行數、字體大小等）并在“高度”編輯框中輸入該值。

　　使用該框可以指定希望在詳細資料間留出的空白區域（間距、裝訂線，等等）。水平 = 詳細資料的橫向間距，垂直 = 詳細信息的縱向間距。
　　
　　確定希望允許的間距。在“水平”編輯框中輸入數據水平間距，并在“垂直”編輯框中輸入垂直間距。
　　
　　打印方向

　　“打印方向”框使您能夠指定程序在報表頁上打印詳細資料時所遵循的路徑。選項有：
　　
　　先行后列

　　從左到右打印各列中的詳細資料，即先打印第一列中的第一則詳細資料，然后打印下一列中的第一則詳細資料，依此類推。然后，當所有列都包含詳細資料后，程序沿著頁面向下移動，打印第一列中的第二則詳細資料，然后打印第二列中的第二則詳細資料，依此類推。
　　
　　先列后行

　　沿著第一列向下打印詳細資料，然后沿著第二列，依此類推。
　　
　　格式化帶有多列的組

　　如果希望程序使用為選定節指定的“寬度”、“詳細資料間距”和“打印方向”格式化帶有多列的組，則選擇該復選框。
　　
　　二、經典水晶報表設計三則之“單擊表頭排序表格”
　　
　　1. 新建一個字符串類型的參數字段，名稱為 URL，用于傳遞 ASP.NET 程序的網址和網址的部分參數。比如："http://www.nt.cn/cr.aspx?sort_field="。
　　
　　2. 右擊作為表頭的文本字段，選擇"設置文本格式"，進入"格式化編輯器"對話框。
　　
　　3. 選擇"超級鏈接"選項卡，并設置超級鏈接類型為"Inte.net 上的網址"。
　　
　　4. 單擊超級鏈接信息的網站地址后面的公式的鈕，輸入公式 + "name"。
　　
　　5. 這樣表頭就變成了超級鏈接，而且指向 http://www.nt.cn/cr.aspx?sort_field=name。
　　
　　6. ASP.NET 程序在 Page_Load 事件里讀取要排序的字段 sort_field，然后對水晶報表進行排序。7. 水晶報表排序編程實例

Dim crReportDocument As ReportDocument

Public Sub changeSortField(mySortFld As String, mySortDir As String)

Dim crSortField As SortField

Dim crSortDirection As SortDirection

Dim crDatabaseFieldDefinition As DatabaseFieldDefinition

For Each crSortField In crReportDocument.DataDefinition.SortFields

If crSortField.Field.Name.ToString = mySortFld Then

crDatabaseFieldDefinition = crReportDocument.Database.Tables(0).Fields(mySortFld.ToString)

crSortField = crReportDocument.DataDefinition.SortFields(0)

crSortField.Field = crDatabaseFieldDefinition

If mySortDir = "Ascending" Then

crSortField.SortDirection = SortDirection.AscendingOrder

Else

crSortField.SortDirection = SortDirection.DescendingOrder

End If

End If

Next

CrystalReportViewer1.ReportSource = crReportDocument

End Sub
三、經典水晶報表設計三則之“設計橫向篇幅非常長又多列的表”
　　
　　1、在“打印設置”對話框，選擇“橫向”選項以橫向方向打印報表。
　　
　　2、在“頁面設置”對話框，縮小上邊距、下邊距、左邊距、右邊距。
　　
　　3、縱向顯示所有報表對象。
　　
　　(1) 將所有報表對象旋轉２７０度，字段、文本、圖片、頁碼等對象。
　　右擊報表對象，選擇"格式化"，進入"格式化編輯器對話框"。選擇"公用"選項卡，在"文本旋轉"下拉列表框選擇 270。
　　
　　(2) 縱向拉長對象，確�？v向上可以容納顯示。
　　
　　(3) 所有的節都要拉長，以容納對象。
　　
　　(4) 頁標題放在右上角，頁碼放在左下角或右下角。
　　
　　參考：

　　1、“公用”選項卡（“格式設置編輯器”對話框）

　　使用“公用”選項卡為所需字段設置如取消、水平對齊以及將對象保持在一起等屬性。
　　
　　2、文本旋轉

　　該列表包括可用于所選字段的旋轉選項。使用“文本旋轉”選項垂直對齊報表上的字段和基于文本的對象。