Husk Report Builder 2.0

Og her er koden i forbindelse med Report server kurset d 25. - 27 feb:

Private Sub

 'load information into list view

 Dim myCatalogItems As

CatalogItem()myCatalogItems = rs.ListChildren("/", True) 
For Each cItem As CatalogItem In myCatalogItems 
Dim strValues(3) As String
strValues(0) = cItem.Name
strValues(1) = cItem.Path
strValues(2) = cItem.Type.ToString()strValues(3) = cItem.CreatedBy
lstView.Items.Add(New ListViewItem(strValues)) 
End Sub
Private Sub DisplayCurrentInfo() 
Me.Cursor = Cursors.WaitCursor 
'display item information in messagebox
Dim item As ListViewItem = lstView.SelectedItems(0) 
Dim strName As String = item.SubItems(0).Text 
Dim strPath As String = item.SubItems(1).Text 
Dim Properties As [Property]()
Properties = rs.GetProperties(strPath,Nothing) 
Dim sb As New System.Text.StringBuilder
For Each prop As [Property] In Properties
sb.Append(prop.Name & ": " & prop.Value & vbCrLf) 
MessageBox.Show(sb.ToString(), _
"properties of " & strName)
Me.Cursor = Cursors.Default 
End Sub
Ex 3

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

ReportViewer1.ProcessingMode = ProcessingMode.Remote

Dim serverReport As ServerReport

serverReport = ReportViewer1.ServerReport


'set the report server URL and report path
New Uri(ReportServerTextBox.Text)serverReport.ReportPath = FolderTextBox.Text + ReportNameTextBox.Text
'conditionally add parameter


If ParameterNameTextBox.Text.Length > 0 Then
Dim parameter As New



'set the report parameters for the report
Dim parameters() As 

End If





End Sub