[VB6] DataReport extra Group header/footer

[Verwijderd]

Ik ben bezig met een project waarbij o.a. een overzicht van openstaande orders moet kunnen worden uitgedraaid. Ik gebruik hiervoor een Data Enviroment en een Data Report. Ik gebruik een Command1_Grouping in de Data Environment.
Ik heb dit nu gedeeltelijk werken maar ik wil graag een extra Group header / footer toevoegen aan het datareport. Dit is niet het probleem echter op het moment dat ik de applicatie start en het dataraport laat zien krijg ik de foutmelding: report sections do not match data source.

Ik heb van alles geprobeerd maar krijg het niet voor elkaar om de extra header te zien.
Hoe laat ik de toegevoegde header zien zonder foutmelding?

[NMe]

Heb je misschien wat relevante code? Zonder code is dit volgens mij een beetje koffiedik kijken.

[Verwijderd]

Het had zonder code volgens mij wel opgelost kunnen worden, maar hierbij alsnog wat code:

gebruiker klikt op toon overzicht..

Visual Basic:

Private Sub ccbToonOverzicht_Click()

On Error GoTo ErrorHandler

    'Maak eerst de tabel OVS_Rapport leeg
    cdaRapport.Refresh
    Do While cdaRapport.Recordset.EOF = False
        cdaRapport.Recordset.Delete
        cdaRapport.Refresh
    Loop
    
    'Voeg nu een record toe aan deze tabel met het order ID
    cdaRapport.Recordset.AddNew
    
    If Not ccoLeverancier.BoundText = "" Then
        cdaRapport.Recordset!id = ccoLeverancier.BoundText
    End If
    
    If Not ccoCollectie.BoundText = "" Then
        cdaRapport.Recordset!id2 = ccoCollectie.BoundText
    End If
    
    'Bijde niet
    If ccoLeverancier.BoundText = "" And ccoCollectie.BoundText = "" Then
        Call pgDisplayFoutieveInvoer("Selecteer een leverancier en/of een collectie")
        Exit Sub
    End If

    cdaRapport.Recordset.Update
    cdaRapport.Refresh
    
    'Alleen Leverancier
    If Not ccoLeverancier.BoundText = "" And ccoCollectie.BoundText = "" Then
        'Requery de data environment
        deOpenOrderLeverancier.Recordsets.Item(1).Requery

        'Toon het rapport
         drOpenOrderLeverancier.Show vbModal
    End If
    
    'Alleen collectie
    If ccoLeverancier.BoundText = "" And Not ccoCollectie.BoundText = "" Then
        'Requery de data environment
        deOpenOrderCollectie.Recordsets.Item(1).Requery
    
        'Toon het rapport
        drOpenOrderCollectie.Show vbModal
    End If
    
    'Leverancier & Collectie
    If Not ccoLeverancier.BoundText = "" And Not ccoCollectie.BoundText = "" Then
       
        
        'Requery de data environment
        deOpenOrderCollectie.Recordsets.Item(1).Requery
    
        'Toon het rapport
        DataReport1.Show vbModal

    End If
    

Exit Sub

ErrorHandler:
    Select Case Err.Number
    Case 3704 'verbinding staat niet open, requery kan niet plaatsvinden
        Resume Next
    Case Else
        Call pgDisplayError(Err.Number)
    End Select

End Sub

Connectionstring en datagrid worden gevuld.

Visual Basic:

Option Explicit


Private Sub DataEnvironment_Initialize()

On Error GoTo ErrorHandler
    
    Dim vlxDatabase As kDatabase
    
    Set vlxDatabase = New kDatabase
        
    'haal de connectionstring op
    vgcConnectionString = vlxDatabase.vgcConnectionString
    
    'Vul de datagrid
    Connection1.ConnectionString = vgcConnectionString
    
Exit Sub

ErrorHandler:
    Select Case Err.Number
    Case Else
        Call pgDisplayError(Err.Number)
    End Select

End Sub

[Verwijderd]

iemand ideetje...