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
Partager