[水晶报表小技巧-开发-1]换页事件截取

[水晶报表小技巧-开发-1]换页事件截取

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- [水晶报表小技巧-开发-1]换页事件截取 (http://www.webasp.net/article/21/20470.htm)

-- 作者：未知
-- 发布日期： 2005-04-29

Mail中有朋友问到,顺便写出来.
VB+水晶报表9,这个还是很简单的,自带事件

Private Sub CRViewer91_NextPageButtonClicked(UseDefault As Boolean)
    Call MsgBox("向后换页")
End Sub
Private Sub CRViewer91_LastPageButtonClicked(UseDefault As Boolean)
    Call MsgBox("最后一页")
End Sub

Private Sub CRViewer91_FirstPageButtonClicked(UseDefault As Boolean)
    Call MsgBox("第一页")
End Sub

Private Sub CRViewer91_PrevPageButtonClicked(UseDefault As Boolean)
    Call MsgBox("向前一页")
End Sub

VS.Net2003自带的,好象没有直接的事件,

不过变通一下可以获得的，

先定义两个全局变量
Public LastPageNum As Int16 '上一页的页码
Public NowPageNum As Int16 '当前页的页码

使用如下事件技巧性获得页面变更事件，

    Private Sub CrystalReportViewer1_Navigate(ByVal source As Object, ByVal e As CrystalDecisions.Windows.Forms.NavigateEventArgs) Handles CrystalReportViewer1.Navigate
        '取得当前页码
        NowPageNum = CrystalReportViewer1.GetCurrentPageNumber
        '如果是第一次加载，则退出
        If NowPageNum = -1 Then
            Exit Sub
        End If
        '如果是换页
        If LastPageNum <> NowPageNum Then
            Call MsgBox("换页了")
        End If
        '更换变量的值
        LastPageNum = NowPageNum
    End Sub

webasp.net