在Crystal Reports中尋呼

需要幫助。因爲每次點擊下一頁或預覽頁時，它總是從數據庫中檢索數據。我試圖將其放入If Not Page.IsPostBack Then...EndIf，但它刪除了數據。在Crystal Reports中尋呼

以下是代碼。

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load 
     Threading.Thread.CurrentThread.CurrentCulture = _datestyle 

     Try 
      If (Session("userID").ToString() = Nothing Or Session("userID").ToString() = "") Then 
       Const script As String = "top.location='../logon.aspx';" 
       Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "logon", script, True) 
       Return 
      End If 
     Catch ex As Exception 
      Const script As String = "top.location='../logon.aspx';" 
      Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "logon", script, True) 
      Return 
     End Try 

     If Not Page.IsPostBack Then 
      _rptSvc = CType(Session("ServiceDue"), ClsRptServiceDue) 
      _dsSvcDue = _rptSvc.RetrieveServiceDue() 

      GenerateReport(_dsSvcDue) 
     End If 

    End Sub 

    Private Sub GenerateReport(ByVal dataSet As DataSet) Implements IBasicReportPage.GenerateReport 
     titleLab.Text = _xml.GetLabelName("EngLabelMsg", "BB-RPTSERVICE-TITLE") 
     _rptSvc = CType(Session("ServiceDue"), ClsRptServiceDue) 

     Dim strHead As String() = CType(Array.CreateInstance(GetType(String), 18), String()) 
     PopulateLabels(strHead) 
     DefineDefaultValues(strHead) 

     Try     
      With _clsReport 
       .ReportFileName = "RPTServiceDueLstng.rpt" 
       .SetReport(CrystalReportViewer1, dataSet, strHead) 
      End With 

     Catch err As Exception 
      Response.Write("<BR>") 
      Response.Write("Error Message: " & err.Message.ToString) 
      Response.Write("<BR>") 
      Response.Write("Source : " & err.Source) 
      Response.Write("<BR>") 
      Response.Write("Stack Trace Message: " & err.StackTrace) 
     End Try 

    End Sub

需要幫助這個傢伙。謝謝！

來源

2012-10-02 Musikero31

您是否使用報表工具中的CrystalReport查看器控件。有一個叫做分頁的事件。在該事件中調用您的私有方法來生成報告。

來源

2012-10-03 14:29:15

水晶報表查看器中沒有分頁事件。 – Musikero31

@ Musikero31：請檢查此活動http://msdn.microsoft.com/en-us/library/ms227066(v=vs.80).aspx –

在Crystal Reports中尋呼

回答

相關問題