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 |