Public Function GetRDLCReportDefinition(ByVal rdlFilename As String) As _
  System.IO.Stream
 
	'
	' Convert RDL file into RDLC file by removing some Query and Report Parameters
	'
 
	Dim document As New ReportDefinition.ReportDefinitionDoc()
 
	Dim root As New ReportDefinition.ReportType(document.Load(rdlFilename))
	For i As Integer = 0 To root.GetDataSetsCount() - 1
 
		Dim datasets As ReportDefinition.DataSetsType = root.GetDataSetsAt(i)
		For d As Integer = 0 To datasets.GetDataSetCount() - 1
 
			Dim dataset As ReportDefinition.DataSetType = datasets.GetDataSetAt(d)
			For q As Integer = 0 To dataset.GetQueryCount() - 1
 
				Dim query As ReportDefinition.QueryType = dataset.GetQueryAt(q)
				For p As Integer = query.GetQueryParametersCount() - 1 To 0 Step -1
 
 
					query.RemoveQueryParametersAt(p)
				Next
			Next
		Next
	Next
	For rp As Integer = root.GetReportParametersCount() - 1 To 0 Step -1
 
 
		root.RemoveReportParametersAt(rp)
	Next
	Dim encoding As New System.Text.UTF8Encoding()
	Dim buffer As Byte() = encoding.GetBytes(document.SaveToString(root))
	Return New MemoryStream(buffer)
End Function

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control