bonjour,
je viens de commencer à utiliser les contrôle infragistic que j'ai jugé mieux pour le design de mes interfaces,
je vais crée un menu avec les fonctionnalités qui proviennent de la base de données mais à chaque chargement j'ai le message d'erreur : "Key already exists
Nom du paramètre : Key"
voici les codes que j'utilise, si possible corrigez pour moi.
merci de votre aide...
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 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