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