0
하위 보고서 모음이 있습니다. 코드는 각각 (패턴을 좋아합니다) 거의 동일합니다. 다음은 실패한 샘플입니다.Crystal Reprts 하위 보고서에 누락 된 데이터
' 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
매우 간단합니다. 내 데이터 집합 개체를로드하고 데이터가 있는지 테스트 한 다음 보고서 하위 섹션에 채 웁니다. 데이터는 쉽게 볼 수있는 데이터 집합에로드됩니다.
예상대로 표시되는 이전 하위 보고서의 경우와 마찬가지로 데이터 집합에 두 개의 레코드가 있습니다.
의견을 보내 주시면 대단히 감사하겠습니다.