Database

Private Sub ShowReport(ByVal Id As Long)<br />
        Dim mdIns As New mdGlobal<br />
        Dim str As String<br />
        Dim AwiCashFlowDataSet As New DataSet<br />
        str = "SELECT  * FROM Analysis  where c_id=" & Id<br />
        CashFlowDataSet = mdIns.GetResultFromQuery(str) 'retun dataset with data<br />
        CashFlowDataSet.Tables(0).TableName = "ReturnOnCash"<br />
<br />
        Dim RDS As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource<br />
        ReturnOnCashBindingSource.DataSource = CashFlowDataSet<br />
        ReturnOnCashBindingSource.DataMember = "ReturnOnCash"<br />
        RDS.Name = "CashFlowDataSet_ReturnOnCash"<br />
        RDS.Value = ReturnOnCashBindingSource<br />
        Me.ReportViewer1.LocalReport.DataSources.Add(RDS)<br />
        If mdChecking.ReportNumber = 1 Then<br />
            ReportViewer1.LocalReport.ReportEmbeddedResource = "Analysis.rptReturnOnCash.rdlc"<br />
        Else<br />
            ReportViewer1.LocalReport.ReportEmbeddedResource = "Analysis.rptCashFlow.rdlc"<br />
        End If<br />
<br />
        Me.ReportViewer1.RefreshReport()<br />
        If IsPrint = False Then<br />
            Me.Show()<br />
        Else<br />
            IsPrint = False<br />
        End If<br />
<br />
    End Sub