Bonjour,

Quelqu'un pourrait-il me dire pourquoi ma boucle en rouge ne tourne une fois et pas le nombre de fois que ma boucle en verte tourne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 While (dr.Read())
                MsgBox(n)
                Dim min = (dr.Item("DENSMIN"))
                Dim max = (dr.Item("DENSMAX"))
                Dim moy = (dr.Item("DENSMOY"))
                Dim Actif As Boolean
                'converir les valeurs afin qu ils soient comphreensible par les check box
                If (dr.Item("ACTIF") = "Y") Then
                    Actif = True
                Else
                    Actif = False
                End If
                While (dr1.Read)
                    MsgBox("ok")
                    If (dr.Item("CODPRO") = dr1.Item("CODPRO")) Then
                        emulation = "ME"
                        'MsgBox("ok")
                    Else
                        emulation = ""
                    End If
                End While
                Dim rown As String() = {dr.Item("CODPRO"), min, max, moy, Actif, emulation}
                With Distinct.DatagridDensity.Rows
                    .Add(rown)
                End With
                n = n + 1
            End While