?? service.vb
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -