サブレポートのコレクションがあります。それぞれのコードは実質的に同じです (私はパターンが好きです)。失敗したもののサンプルを次に示します。
' subject
sql = "select * from vw_UORSuspect where offense_id = " + offenseID.ToString
GetData(sql, dsUORSubject, "vw_uorSubject", 0)
If Not dsUORSubject.Tables(0).Rows.Count = 0 Then
mySection = UORrpt.ReportDefinition.Sections("DetailSection6")
mySubObj = mySection.ReportObjects("Subreport3")
mySubRep = mySubObj.OpenSubreport(mySubObj.SubreportName)
mySubRep.SetDataSource(dsUORSubject)
'mySubSection = UORrpt.Subreports.Item(0).ReportDefinition.Sections(1)
End If
それはかなり簡単です。データセット オブジェクトを読み込み、データがあるかどうかをテストしてから、レポート サブセクションに詰め込みます。データはデータセットに読み込まれるため、簡単に表示できます。
期待どおりに表示される前のサブレポートと同様に、データセットには 2 つのレコードがあります。