Subreport in Crystal Reports

See more:

VB

Hi Guys,

I am Generating report on Employee Details.
In this I want to display some of employee details from another table in Subreport.
I can able to display Main Report but not the Subreport.

I also Linked Both Reports with Empcode.


Please Give me a solution i am trying this from last one week.

itried with below code but its not working for me.

I am Trying Below Code ::

Dim SubRptO As CrystalDecisions.CrystalReports.Engine.SubreportObject
Dim SubRptD As New CrystalDecisions.CrystalReports.Engine.ReportDocument

Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo

Dim Constring As String = Convert.ToString(clsCommon.con.ConnectionString)

Dim Connection1 As String() = Constring.Split(";")
Dim ConnDatabase As String = Connection1(1).Remove(0, 17)
Dim ConnDatasource As String = Connection1(0).Remove(0, 12)

ConInfo.ConnectionInfo.ServerName = ConnDatasource
ConInfo.ConnectionInfo.DatabaseName = ConnDatabase
ConInfo.ConnectionInfo.IntegratedSecurity = True

For index = 0 To rpt.ReportDefinition.Sections.Count - 1
                For intCounter = 0 To rpt.ReportDefinition.Sections(index).ReportObjects.Count - 1
                    With rpt.ReportDefinition.Sections(index)
                        If .ReportObjects(intCounter).Kind = CrystalDecisions.Shared.ReportObjectKind.SubreportObject Then
                            SubRptO = CType(.ReportObjects(intCounter), CrystalDecisions.CrystalReports.Engine.SubreportObject)
                            SubRptD = (SubRptO.OpenSubreport(SubRptO.SubreportName))
                            If (SubRptO.SubreportName = "sbrAccessGroup") Then
                                SubRptD.SetDataSource(DtAcessGrp)
                            End If
                            For intCounter1 = 0 To SubRptD.Database.Tables.Count - 1
                                SubRptD.Database.Tables(intCounter1).ApplyLogOnInfo(ConInfo)
                            Next
                        End If
                    End With
                Next
            Next



    rpt.SetDataSource(DsRep)

            CrystalReportViewer1.ReportSource = rpt

   Dim RowCount As Integer = DsRep.Rows.Count
            If RowCount = 0 Then
                MessageBox.Show("No Records Found !", "ACCESS CONTROL SYSTEM", MessageBoxButtons.OK, MessageBoxIcon.Information)
                '   rpt = Nothing
            End If
            CrystalReportViewer1.ReportSource = Nothing
            CrystalReportViewer1.ReportSource = rpt
            CrystalReportViewer1.Refresh()
            CrystalReportViewer1.Show()