'需要參照的名稱空間
Imports System.IO
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data.SqlClient
Imports System.Data

    '宣告 CrystalReports 物件
    Public ReportDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument

    '檔案名稱
    Public sTmpFileName As String

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '載入頁面判斷是否有傳遞參數
        If Request.Form("oid") <> "" Then
            Dim oid As String = Request.Form("oid")
            binddata(oid)'資料繫結+導入CR報表與轉PDF檔
            Response.Write(sTmpFileName)'頁面顯示轉出後檔名
            Response.End()
        End If
    End Sub