.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
经典水晶报表设计——单击表头排序表格

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

1. 新建一个字符串类型的参数字段,名称为 URL,用于传递 ASP.NET 程序的网址和网址的部分参数。比如:"http://www.nt.cn/cr.aspx?sort_field="。

2. 右击作为表头的文本字段,选择"设置文本格式",进入"格式化编辑器"对话框。

3. 选择"超级链接"选项卡,并设置超级链接类型为"Internet 上的网址"。

4. 单击超级链接信息的网站地址后面的公式的钮,输入公式 {?URL} + "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




相关文章

相关软件