我有一组子报表。每个代码几乎都是相同的(我喜欢模式)。这是失败的示例:
' 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
这很简单。我加载我的数据集对象,测试是否有数据,然后将其填充到报告小节中。数据确实被加载到数据集中,这很容易查看。
数据集中有两条记录,与按预期显示的上一个子报表一样。