regroupement dans un Data Report sans Data Environment ?Résolu

Question

Bonjour,


 <?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


Je cherche &#224; cr&#233;er un regroupement dans un Data Report sans utiliser un Data Environnement.


 


J&#146;ai ajout&#233; une section en-t&#234;te de groupe sur mon Data Report. Dans le code, j&#146;ai d&#233;fini le recordset source et les champs associ&#233;s aux diff&#233;rentes zones de texte du Data Report.


 


Seulement, quand j&#146;ex&#233;cute, j&#146;ai le message d&#146;erreur suivant :


&#171; Les sections de l&#146;&#233;tat ne correspondent pas &#224; la source de donn&#233;es &#187;


 


Si je supprime l&#146;en-t&#234;te de groupe du Data Report et le code associ&#233; &#224; cet en-t&#234;te, l&#146;&#233;tat est g&#233;n&#233;r&#233; sans soucis.


 


Bref, j&#146;aimerais savoir comment coder un regroupement dans un Data Report&#133;


 


Merci pour votre aide.


 


Pour info, voici mon code :


-------------------------------------------------------------------------------------------


Dim Rs As New ADODB.Recordset


 


StrEtat "select * from destinataire, message where destinataire.numdes message.numdes"


StrEtat StrEtat & " and destinataire.numdes in (" & StrNumdes & ") and datmes '" 


StrEtat = StrEtat & LblDate.Caption & "' order by nomdes, predes"


 


Rs.Open StrEtat, Cn, adOpenDynamic, adLockOptimistic


Set DataReport1.DataSource = Rs


 


With Me.Sections("GroupeDes").Controls          'Section En-t&#234;te de groupe


    .Item("txtnomdes").DataField = "nomdes"


    .Item("txtpredes").DataField = "predes"


End With


 


With Me.Sections("SectionMess").Controls         'Section D&#233;tails


    .Item("txtdatmes").DataField = "datmes"


    .Item("txtheurmes").DataField = "heurmes"


    .Item("txtnomapp").DataField = "nomapp"


    .Item("txtpreapp").DataField = "preapp"


    .Item("txtsocapp").DataField = "socapp"


    .Item("txttelapp").DataField = "telapp"


End With


---------------------------------------------------------------------------------------------------

rvblog · Accepted Answer

Salut GiBuss, tu n'aurais pas aussi le code d'ajout et de configuration des sections (juste pour relecture)? à+ rvblogn^{Je veux ton bien... et je l'aurais}

Regroupement dans un Data Report sans Data Environment ?

1 réponse

Discussions similaires