[CR] problème de boucle

[quaresma]

bonjour,
je travail avec vb6 et crystal report 8.5 et dans mon code VB cette boucle ne marche pas:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub police()
''''''''''''''''' Les polices ''''''''''''''''''''''''
 Dim chxname As String
 Dim chxbold, chxitalic, chxbarre, chxsouligne As Boolean
 Dim chxsize As Integer
 Dim Z As Integer
 Dim chxcolor As Double
 
 Open App.Path & "\police.mod" For Input As #1
  Input #1, chxname, chxbold, chxitalic, chxsize, chxbarre, chxsouligne, chxcolor
 Close #1
 
 For Z = 247 To 361
     NoFiel = CStr(Z)
     LeControle = "T" + NoFiel
     Report.LeControle.Font.Name = chxname
 Report.LeControle.Font.Bold = chxbold
 Report.LeControle.Font.Italic = chxitalic
 Report.LeControle.Font.Size = chxsize
 Report.LeControle.Font.Strikethrough = chxbarre
 Report.LeControle.Font.Underline = chxsouligne
Next
End Sub

Je voudrai faire en sorte que tous les champs de textes ayant pour nom "T247 -> T361" dans la crystal report aient la même police. C'est pour éviter d'ecrire plein de fois la même chose que j'ai voulu faire cette boucle...
Savez-vous ce qui ne va pas dans mon code?
merci pour votre aide.

[quaresma]

personne pour m'aider?