[RESOLVED] Microsoft ReportViewer Problem. Please help

[tgf-47]

I have a problem.

Everything works perfectly, but on the drillthrough event. Say I clicked on the cell that contains the value of "Peter".

How can I get the clicked value of the report to a variable?

 Public Sub DemoDrillthroughEventHandler(ByVal sender As Object, _
        ByVal e As DrillthroughEventArgs) Handles ReportViewer1.Drillthrough
        Dim localReport As LocalReport = e.Report
        'gets the name of the repots that is loaded into the reportviewer so that
        'the wrong data wont get loaded
        If ReportViewer1.LocalReport.ReportEmbeddedResource = "Reports.rptAccount.rdlc" Then
            localReport = e.Report
            '"NewDb_orders" ---> DatabaseName_TableName
            localReport.DataSources.Add(New ReportDataSource( _
              "Ds_InvoiceAcc", InvoiceByACC()))
            ElseIf ReportViewer1.LocalReport.ReportEmbeddedResource = "Reports.rptDetails.rdlc" Then
               localReport = e.Report
               localReport.DataSources.Add(New ReportDataSource( _
               "NewDb_listings", Listings()))
        End If
    End Sub

I need to put that value into a variable to use on other parts of my project.

[tgf-47]

I got it to work using drillthrough into other reports and then passing the value I needed into variables to use for other functions.

Here is the code, just in case somebody else is having the same problem:

Public strFilter As String
    Public strToForm As String
    Public strAccNo As String 
 
 Public Sub DemoDrillthroughEventHandler(ByVal sender As Object, _
        ByVal e As DrillthroughEventArgs) Handles ReportViewer1.Drillthrough
        Dim s As ReportViewer = sender
        Dim sourcelocal As LocalReport = e.Report
        '\\\\ Dim rp As Microsoft.Reporting.WinForms.ReportParameter = sourcelocal.OriginalParametersToDrillthrough
        Dim rpc As System.Collections.Generic.IList(Of Microsoft.Reporting.WinForms.ReportParameter) = sourcelocal.OriginalParametersToDrillthrough
        strFilter = (rpc(0).Values(0).ToString)
        strToForm = (rpc(1).Values(0).ToString)
        strAccNo = (rpc(2).Values(0).ToString)
        Call CallForm(strToForm)
    end sub
 
 Sub CallForm(ByVal strType As String)
        Select Case strType
            Case Is = "JNL"
                Dim f As New Journals.frmJournal
                f.InvoiceNumber = strFilter
                f.display()
            Case Is = "INV"
                Dim f As New Invoice.frmInvoice
                f.InvoiceNumber = strFilter
                f.display()
            Case Is = "REC"
                Dim f As New Journals.frmReceipt
                f.InvoiceNumber = strFilter
                f.display()
            Case Is = "CRN"
                Dim f As New Invoice.frmCRN
                f.InvoiceNumber = strFilter
                f.display()
        End Select