service.vb

来自「< SQL Server2005程序设计>」· VB 代码 · 共 22 行

Imports VB_Forms.ReportServer

Public Class Service
    Private rptSrvr As New ReportingService2005
    Private catItem() As CatalogItem

    Private Sub Service_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rptSrvr.Credentials = System.Net.CredentialCache.DefaultCredentials
        rptSrvr.Url = "http://localhost/reportserver/reportservice2005.asmx"

        catItem = rptSrvr.ListChildren("/Chap21", True)
        For Each item As CatalogItem In catItem
            ListBox1.Items.Add(item.Name)
        Next
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        ReportViewer1.ServerReport.ReportPath = catItem(ListBox1.SelectedIndex).Path
        ReportViewer1.RefreshReport()
    End Sub

End Class