#眉標=SQL Server
#副標= 如何擴展Reporting Services的深度
#大標=SQL Server Reporting Service的開發作業（下）
#作者=文／彭靖灝
＃引言＝

     ============<box>==============
　　　[程式 1 UrlAccess類別]
Public Class UrlAccess

    Private m_ReportName As String  ' 報表名稱
    Private m_Path As String        ' 伺服器及報表所在資料夾完整路徑
    Private m_Url As String         ' 完整的命令路徑

    Property ReportName() As String
        Get
            Return m_ReportName
        End Get
        Set(ByVal Value As String)
            m_ReportName = Value
        End Set
    End Property

    Property Path() As String
        Get
            Return m_Path
        End Get
        Set(ByVal Value As String)
            m_Path = Value

        End Set
    End Property


    Property Url() As String
        Get
            Return m_Url
        End Get
        Set(ByVal Value As String)
            m_Url = Value
        End Set
    End Property
    Public Sub New()
        ' Standard constructor

    End Sub

    Public Sub New(ByVal Path As String, ByVal ReportName As String)
        Me.ReportName = ReportName
        Me.Path = Path
        BuildUrlString()
    End Sub

    Public Sub BuildUrlString()
        Me.m_Url = Path & ReportName & "&rs:Command=Render"
    End Sub
End Class
     =============<end>===================
    
     =======<box>=====================
　　　[程式2 ReportViewerForm表單中的程式碼]
     
Private Const c_ServerPath = "http://localhost/reportserver"

Public Sub ShowReport()
    Dim UrlCommand As New UrlAccess(c_ServerPath & "?/", lblReportName.Text)
    ieReportViewer.Navigate2(UrlCommand.Url)

End Sub
     ============<end>=================
    
     =============<box>===============
　　　[程式3 lstReports的DoubleClick事件程序。]
Private Sub lstReports_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) _ 
Handles lstReports.DoubleClick
    Dim frmReportViewer As New ReportViewerForm

    frmReportViewer.lblReportName.Text = lstReports.SelectedItem.ToString
    frmReportViewer.ShowReport()
    frmReportViewer.ShowDialog()
End Sub
     ==============<end>=============