Visual Basic

Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'report server Url
        Me.ReportViewer1.ServerReport.ReportServerUrl = New System.Uri("http://localhost/reportserver")
        'Make any report the parent report
        While Me.ReportViewer1.ServerReport.IsDrillthroughReport
            Me.ReportViewer1.PerformBack()
        End While

        Dim strReport As String = DropDownList1.SelectedValue
        Me.ReportViewer1.ServerReport.ReportPath = strReport
        

        End If

    End Sub

    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
        Dim strReport As String = DropDownList1.SelectedValue
        Me.ReportViewer1.ServerReport.ReportPath = strReport
        If DropDownList1.SelectedIndex = 0 Then
            strReport = "\ClientPerPackage.rdlc"
        ElseIf DropDownList1.SelectedIndex = 1 Then
            strReport = "\stocklist.rdlc"

        End If
    End Sub
End Class

:confused::confused::confused::confused::confused::confused:

Dim i As Integer
        Dim str As String = ""
        'For i = 0 To XMLDocument.Length
        '    str = str & XMLDocument.ToString(i)
        'Next
        str = System.Text.UnicodeEncoding.ASCII.GetString(XMLDocument)

        Dim fs As New FileStream("c:\text.xml", FileMode.Create, FileAccess.ReadWrite, FileShare.Delete)
        fs.Write(XMLDocument, 0, XMLDocument.Length)
        fs.Close()
        fs.Dispose()

        Dim xml As New XmlDocument
        '' Dim re As StringReader = New StringReader(str)

        xml.Load("c:\text.xml")


        Dim Site As SPWeb = New SPSite(SitePath).OpenWeb()
        Dim tw As SPListItem

        Dim UpdateList As SPList = Site.Lists(ListBoxToUpdate)

        tw = UpdateList.Items.Add()
        Dim newFolder As SPFolder = Site.GetFolder(ListBoxToUpdate)
        Dim destFolder As SPFolder = Site.GetFolder(ListBoxToUpdate)

        Dim spf As SPFileCollection = destFolder.Files

        For Each node As XmlNode In xml.LastChild


            Dim ArrByte As Byte() = System.Text.Encoding.ASCII.GetBytes(node.Attributes(2).Value)
            
            Dim strImageByte As Byte() = ArrByte
            'spf.Add(node.Attributes(0).Value & "." & node.Attributes(1).Value, strImageByte)

            tw.Attachments.Add(node.Attributes(0).Value & "." & node.Attributes(1).Value, strImageByte)
        Next

        Dim Title As String = ""
        'Title = XmlFiles(x).ToString
        'Title = Title.Substring(Title.LastIndexOf("\") + 1, XmlFiles(x).ToString.Length + 2 - Title.LastIndexOf("\"))

        tw("Title") = "ChargeOutInvoiceNotIndexed"
        tw.Update()
        tw = Nothing
        'spf("Title") '= "ChargeOutInvoiceNotIndexed"