مشکل در نمایش اطلاعات در ساب ریپورت

[vb341]

با سلام
من در وی بی دات نت 2012 گزارش ساختم و برای یکی از گزارشها دو تا ساب ریپورت میزارم و لینک ارتباطی اونها هم مشخصه . ولی ساب ریپورتها رو خالی نمایش میده . میخواستم ببینم چطور باید اطلاعات ساب ریپورتها رو پر کنم . برای ریپورت اصلی از کد زیر استفاده میکنم

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

Try
If Con.State = ConnectionState.Open Then
Con.Close()
End If

Con.Open()


DA = New SqlDataAdapter("select * from PersonelReport", Con)
Cont_Afsar_MaliDataSet1.Clear()
DA.Fill(Cont_Afsar_MaliDataSet1, "PersonelDetail")

RepPersonel.SetDataSource(Cont_Afsar_MaliDataSet1)

RepPersonel.SetParameterValue("DateFa", ShamsiDateFormat)
FrmReport.CrystalReportViewer1.ReportSource = RepPersonel
FrmReport.ShowDialog()

Con.Close()

Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try


End Sub

میخواستم ببینم برای ساب ریپورتها چطور باید اطلاعات دیتا رو به ساب ریپورت منتقل کنیم

[vb341]

قدیما وقتی مشکلی تو سایت مطرح میشد دوستان عزیز سریعا راه حلی براش پیدا میکردن . ولی الان ...
در هر صورت خودم جوابش رو پیدا کردم و برای استفاده دوستان قرار دادم .

لازم به توضیح که گزارش من سه تا ساب داشت که برای هر کدوم جداگانه دیتا رو تعریف باید کرد .



Try
If Con.State = ConnectionState.Open Then
Con.Close()
End If

Con.Open()

DA = New SqlDataAdapter("select * from PersonelReport", Con)
Dim da2 As SqlDataAdapter = New SqlDataAdapter("select * from JobHistoryReport", Con)
Dim da3 As SqlDataAdapter = New SqlDataAdapter("select * from TrainingExecutionReport", Con)
Dim da4 As SqlDataAdapter = New SqlDataAdapter("select * from MissionSeacraftReport", Con)

Cont_Afsar_MaliDataSet1.Clear()
DA.Fill(Cont_Afsar_MaliDataSet1, "PersonelReport")
da2.Fill(Cont_Afsar_MaliDataSet2, "JobHistoryReport")
da3.Fill(Cont_Afsar_MaliDataSet3, "TrainingExecutionReport")
da4.Fill(Cont_Afsar_MaliDataSet4, "MissionSeacraftReport")

RepPersonel.SetDataSource(Cont_Afsar_MaliDataSet1)

RepPersonel.Subreports(0).SetDataSource(Cont_Afsar _MaliDataSet2)
RepPersonel.Subreports(1).SetDataSource(Cont_Afsar _MaliDataSet3)
RepPersonel.Subreports(2).SetDataSource(Cont_Afsar _MaliDataSet4)


RepPersonel.SetParameterValue("DateFa", ShamsiDateFormat)
FrmReport.CrystalReportViewer1.ReportSource = RepPersonel

FrmReport.ShowDialog()

Con.Close()

Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
End Try