1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Dim Agroup As New UltraExplorerBarGroup
Dim AnItem As New UltraExplorerBarItem
Call connection()
cmd.CommandText = "select * from UFonct"
dr = cmd.ExecuteReader
Dim i As Integer
While dr.Read
If dr("IdFonct") <> dr("Idgroup") Then
Agroup.Text = dr("LibFonct").ToString
Agroup.Key = dr("KeyFonct").ToString
FrmAcceuil.UltraExplorerBar1.Groups.Add(Agroup)
AnItem.Key = dr("Keyfonct").ToString
AnItem.Text = dr("LibFonct").ToString
Agroup.Items.Add(AnItem.Key.ToString, AnItem.Text.ToString)
End If
End While |
Partager