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

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

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

PrivateSubCRViewer91_NextPageButtonClicked(UseDefaultAsBoolean)
   CallMsgBox("向后换页")
EndSub
PrivateSubCRViewer91_LastPageButtonClicked(UseDefaultAsBoolean)
   CallMsgBox("最后一页")
EndSub

PrivateSubCRViewer91_FirstPageButtonClicked(UseDefaultAsBoolean)
   CallMsgBox("第一页")
EndSub

PrivateSubCRViewer91_PrevPageButtonClicked(UseDefaultAsBoolean)
   CallMsgBox("向前一页")
EndSub

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


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

先定义两个全局变量
PublicLastPageNumAsInt16'上一页的页码
PublicNowPageNumAsInt16 '当前页的页码

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

   PrivateSubCrystalReportViewer1_Navigate(ByValsourceAsObject,ByValeAsCrystalDecisions.Windows.Forms.NavigateEventArgs)HandlesCrystalReportViewer1.Navigate
       '取得当前页码
       NowPageNum=CrystalReportViewer1.GetCurrentPageNumber
        '如果是第一次加载，则退出
       IfNowPageNum=-1Then
           ExitSub
       EndIf
       '如果是换页
       IfLastPageNum<>NowPageNumThen
           CallMsgBox("换页了")
       EndIf
       '更换变量的值
       LastPageNum=NowPageNum
   EndSub

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>