最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
经典水晶报表设计―单击表头排序表格
时间:2022-07-02 11:31:48 编辑:袖梨 来源:一聚教程网
1. 新建一个字符串类型的参数字段,名称为 URL,用于传递 ASP.NET 程序的网址和网址的部分参数。比如:"http://www.*n**t.cn/cr.aspx?sort_field="。
2. 右击作为表头的文本字段,选择"设置文本格式",进入"编辑器"对话框。
3. 选择"超级链接"选项卡,并设置超级链接类型为"Internet 上的网址"。
4. 单击超级链接信息的网站地址后面的公式的钮,输入公式 {?URL} + "name"。
5. 这样表头就变成了超级链接,而且指向 http://www.*n**t.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
2. 右击作为表头的文本字段,选择"设置文本格式",进入"编辑器"对话框。
3. 选择"超级链接"选项卡,并设置超级链接类型为"Internet 上的网址"。
4. 单击超级链接信息的网站地址后面的公式的钮,输入公式 {?URL} + "name"。
5. 这样表头就变成了超级链接,而且指向 http://www.*n**t.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
相关文章
- 地狱即我们调查道具怎么获取 获取方式及使用方法一览 09-18
- 无主之地4伊瑟图斯怎么打 原始秘藏护卫打法攻略 09-18
- 地狱即我们调查道具有什么 获取方式及使用方法一览 09-18
- 无主之地4万物皆可卖成就怎么达成 万物皆可卖成就解锁攻略 09-18
- 地狱即我们全章节怎么过 1-15章流程视频攻略总览 09-18
- 无主之地4安全屋怎么占领 安全屋占领方法 09-18