[VB] Boucle Visual basic - crystal reports

Version imprimable

bonjour,
Je travaille avec VB et crystal reports pour les etats. Et les champs VB et crystal reports sont reliés entre eux et enregistrer ds une base de donnée access.
Voici ce que je fais pour l'instant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 If IsNull(FormMAF4.Adodc1.Recordset.Fields("31")) Then Report2.T31.SetText ("") Else Report2.T31.SetText (FormMAF4.Adodc1.Recordset.Fields("31")) End If If IsNull(FormMAF4.Adodc1.Recordset.Fields("32")) Then Report2.T32.SetText ("") Else Report2.T32.SetText (FormMAF4.Adodc1.Recordset.Fields("32")) End If (......)
Et s'il y a bcp de champ de texte, ca fait bcp de code pour la même chose.
Savez-vous comment traiter tout ca dans une seule boucle?
FormMAF4 est le nom de mon ".frm" de visual basic

merci pour votre aide.

Edit
Avec 8 messages au compteur, t'es un ancien... Tu devrais donc savoir utiliser les balises [ Code ] et [ /Code] pour encadrer ton code et le rendre lisible... :evil: Lis les règles, c'est plein de bons conseils :wink:
Balises ajoutées par ouskel'n'or

J'ai peut-être une solution mais comme je ne connais pas, que représente T31 dans Report2.T31.SetText ("")
Si c'est un contrôle ou un objet, tu peux remplacer par (exemple

Report2.Controls("T31").SetText ("")

et donc, faire une boucle du genre
Code:

1 2 3 4 5 6 7 8 9 For i = 1 to DernierField NoFiel = cstr(i) If IsNull(FormMAF4.Adodc1.Recordset.Fields(NoFiel)) Then LeControle = "T"+NoFiel Report2.Controls(LeControle).SetText ("") Else Report2.Controls(LeControle).SetText (FormMAF4.Adodc1.Recordset.Fields(NoFiel)) End If Next
Juste pour l'idée

A+

24/03/2006, 12h37
quaresma

Citation:

Envoyé par ouskel'n'or

J'ai peut-être une solution mais comme je ne connais pas, que représente T31 dans Report2.T31.SetText ("")
Si c'est un contrôle ou un objetA+

salut,
T31 est un simple champ de texte contenu dans l'etat crystal reports.
24/03/2006, 13h53
ouskel'n'or

Citation:

T31 est un simple champ de texte contenu dans l'etat crystal reports.

Désolé, dix ans que je n'ai pas utilisé crystal reports, ça ne me parle pas. Est-ce assimilable à un contrôle ? A un objet ? De quel type ? Appartient-il à une collection ? :cry:

Mais il y aura bien quelqu'un pour t'aider.
Le principe que je t'ai donné devrait pouvoir fonctionner s'il fait partie d'une collection et que tu peux utiliser Report2.LeTrucChamp(T&i)

Bonne chance, mais si tu as la solution, peux-tu la mettre, ça pourrait peut-être aider quelqu'un d'autre

A+

Citation:

Envoyé par ouskel'n'or

Code:

1
2
3
4
5
6
7
8
9
For i = 1 to DernierField 
     NoFiel = cstr(i)
     If IsNull(FormMAF4.Adodc1.Recordset.Fields(NoFiel)) Then 
         LeControle = "T"+NoFiel 
         Report2.Controls(LeControle).SetText ("") 
        Else 
         Report2.Controls(LeControle).SetText (FormMAF4.Adodc1.Recordset.Fields(NoFiel)) 
     End If
Next

houla, a quoi correspondent "nofiel", "lecontrole" dans ton code ??

je ne comprend pas.

27/03/2006, 09h30
ouskel'n'or

Citation:

houla, a quoi correspondent "nofiel", "lecontrole" dans ton code ??

Je te retourne la question : à quoi correspond "31" dans ton code, à la ligne suivante.

Citation:

If IsNull(FormMAF4.Adodc1.Recordset.Fields("31")) Then

Ça, c'est toi qui l'as écrit et pour avoir une chaîne comme toi contenant le No du Field, j'ai crée NoField

Mais si tu as bien lu, j'ai aussi écrit

Citation:

Le principe que je t'ai donné devrait pouvoir fonctionner s'il fait partie (field) d'une collection et que tu peux utiliser Report2.LeTrucChamp(T&i)

C'était pour que tu en comprennes le principe mai là, comme je te l'ai aussi indiqué, je ne peux pas le vérifier à ta place.
27/03/2006, 23h55
quaresma
Code:

If IsNull(FormMAF4.Adodc1.Recordset.Fields("31")) Then

// le 31 correspond a un chp de texte qui est ds un formulaire de saisi dans visual basic//

Code:

Report2.T31.SetText ("")

//si le chp de texte est vide, le champ correspondant ds Crystal Reports est vide aussi//
Code:

1 2 3 Else Report2.T31.SetText (FormMAF4.Adodc1.Recordset.Fields("31")) End If
// aussi non, la valeur du chp de texte 31 du Crystal reports sera égale à celle du chp de texte "31" du formulaire.

voilou a++
28/03/2006, 08h53
quaresma

je ne sais pas comment faire groupe de controle ds crystal reports :cry:
29/03/2006, 09h12
ouskel'n'or

Il faut d'abord savoir si ce groupe existe. As-tu regardé dans la "Recherche avancée sur le forum" Visual Basic à Crystal and Report, tu as 30 réponses. Jète un oeil, tu auras bien une indication.

Désolé de ne pouvoir faire plus

A+
29/03/2006, 10h17
quaresma

pas d'indications dans la recherche. personne n'a eu le même problème?