[水晶报表小技巧-开发-1]换页事件截取-数据库专栏,SQL Server

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