webform1.aspx.vb

一个很好用的报表控件

Imports System.IO
Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents btnPrevious As System.Web.UI.WebControls.Button
    Protected WithEvents btnNext As System.Web.UI.WebControls.Button
    Protected WithEvents btnFirstpage As System.Web.UI.WebControls.Button
    Protected WithEvents CrystalReportViewer1 As CrystalDecisions.Web.CrystalReportViewer
    Protected WithEvents btnGroupRatio As System.Web.UI.WebControls.Button
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents txtKeyWord As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnSearch As System.Web.UI.WebControls.Button
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents txtPageNum As System.Web.UI.WebControls.TextBox
    Protected WithEvents btnShowNthPage As System.Web.UI.WebControls.Button
    Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents lstZoomFactor As System.Web.UI.WebControls.DropDownList
    Protected WithEvents lstReports As System.Web.UI.WebControls.DropDownList
    Protected WithEvents btnLastpage As System.Web.UI.WebControls.Button

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
        If Request.QueryString("RptName") <> "" Then
            CrystalReportViewer1.ReportSource = Server.MapPath(Request.QueryString("RptName"))
            CrystalReportViewer1.DataBind()
            lstReports.Items(0).Text = Request.QueryString("RptName")
        End If
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码

        If Not IsPostBack Then
            Dim WebDir As String = Request.ServerVariables("APPL_PHYSICAL_PATH")
            Dim RptDir As New DirectoryInfo(WebDir)
            Dim Rpts As FileInfo() = RptDir.GetFiles("*.rpt")

            Dim RptFile As FileInfo
            For Each RptFile In Rpts
                lstReports.Items.Add(RptFile.Name)
            Next
        End If

    End Sub

    Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
        CrystalReportViewer1.ShowPreviousPage()
    End Sub

    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        CrystalReportViewer1.ShowNextPage()
    End Sub

    Private Sub btnFirstpage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirstpage.Click
        CrystalReportViewer1.ShowFirstPage()
    End Sub

    Private Sub btnLastpage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLastpage.Click
        CrystalReportViewer1.ShowLastPage()
    End Sub

    Private Sub btnGroupRatio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGroupRatio.Click
        If CrystalReportViewer1.PageToTreeRatio <= 2 Then
            CrystalReportViewer1.PageToTreeRatio = 8
        Else
            CrystalReportViewer1.PageToTreeRatio = CrystalReportViewer1.PageToTreeRatio - 1
        End If
    End Sub

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        Dim KeyWord As String
        KeyWord = txtKeyWord.Text
        CrystalReportViewer1.ShowFirstPage()
        CrystalReportViewer1.SearchForText(KeyWord, CrystalDecisions.[Shared].SearchDirection.Forward)
    End Sub

    Private Sub btnShowNthPage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowNthPage.Click
        Dim PageNumber As Integer
        PageNumber = txtPageNum.Text
        CrystalReportViewer1.ShowNthPage(PageNumber)
    End Sub

    Private Sub lstZoomFactor_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstZoomFactor.SelectedIndexChanged
        Dim ZoomFactor As Integer
        ZoomFactor = lstZoomFactor.SelectedItem.Value
        CrystalReportViewer1.Zoom(ZoomFactor)
    End Sub

    Private Sub lstReports_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstReports.SelectedIndexChanged
        If lstReports.SelectedIndex > 0 Then
            Dim RptName As String
            RptName = lstReports.SelectedItem.Text
            Response.Redirect(Request.Path & "?RptName=" & RptName)
        End If
    End Sub
End Class