1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| ' Charger la liste des niveaux
MyCommand.CommandText = "select niveau from niveau where Id_client=" & "'" & idclt & "'"
MyDataReader = MyCommand.ExecuteReader()
While MyDataReader.Read()
DTGInter.Rows.Add(MyDataReader.GetString(0), "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")
Labelname = "NomdelaTextBox" & NumeroLabel
' Declare a label.
Dim Label1 As System.Windows.Forms.Label
Label1 = New Label
Label1.Location = New System.Drawing.Point(12, 152)
Label1.Name = Labelname
Label1.Size = New System.Drawing.Size(686, 23)
Me.Controls.Add(Label1)
Label1.AutoSize = False
Label1.BackColor = Color.White
Label1.Text = " Niveau : " & MyDataReader.GetString(0)
NumeroLabel = NumeroLabel + 1
End While
MyDataReader.Close() |