怎样在程序中对子报表（水晶报表）的数据源赋值

Question

换了个数据源后，在程序中运行时，到子报表处就弹出数据库链接对话框，怎么解决啊？（子报表中有image字段），怎样在程序中对子报表的数据源赋值？

Answer 1

Dim bSubreport As Boolean
    Dim Obj As Object
    Dim oSection As CRAXDRT.Section
    Dim CRXSubReport As CRAXDRT.SubreportObject
    Dim CRXSubReportTemp As CRAXDDRT.report
    bSubreport = False
        For Each oSection In CRXReport.Sections
            For Each Obj In oSection.ReportObjects
                If Obj.Kind = crSubreportObject Then
                   Set CRXSubReport = Obj
                   bSubreport = True
                   Exit For
                End If
           Next Obj
           If bSubreport Then Exit For
        Next oSection
        
        Set CRXSubReportTemp = CRXSubReport.OpenSubreport然后对这个子报表SetDataSource就性了