水晶报表7子报表填充数据（VB）使用Crystal Report控件

Public Sub GenerateCreditorsListingRpt(ByVal strSupplierCdeFrom As String, _
                                ByVal strSupplierCdeTo As String, _
                                ByRef robjReport As CrystalReport, _
                                ByRef rfrmPreview As Form)

    Dim objReportDB As New clsReportDB
    Dim rstResult As New ADODB.Recordset
    Dim rstResultDefaultAcct As New ADODB.Recordset
    Dim strQuery As String