1

これについて助けが必要です。次のページまたはプレビュー ページをクリックするたびに、常にデータベースからデータが取得されるためです。中に入れてみましIf Not Page.IsPostBack Then...EndIfたが、データが削除されます。

以下はコードです。

    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

この人たちの助けが必要です。ありがとう！

4

1 に答える 1

1

レポートツールのCrystalreportビューアコントロールを使用していますか。ページングと呼ばれるイベントが1つあります。そのイベントでレポートを生成するためのプライベートメソッドを呼び出します。

于 2012-10-03T14:29:15.797 に答える