Discussion :

[abou_alkassim]

Bonjour tt le monde,j'ai une combobox que je charge depuis la base de donnée
via un adapter et je veux ajouter une ligne en haut de la selection voilà le code:

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
 
 Dim req As String = "select ConventionId,titreConv from Convention where ConventionId in (select ConventionId from Projet where ProjetId in (select ProjetId from ProjetNatureContribution where NatureContributionId in(3,4)  )) order by conventionId asc"
        Dim cnx As New SqlConnection(ConnexionStrSIFHII)
        cnx.Open()
        Dim dAdapter As New SqlDataAdapter(req, cnx)
 Dim dt As New DataTable
        dAdapter.Fill(dt)
        Dim r As DataRow
        r = dt.NewRow
        r.Item(0) = 0
        r.Item(1) = "Séléctionner une convention"
        dt.Rows.Add(r)
listeConvention.DataSource = dt
 listeConvention.ValueMember = "ConventionId"
 listeConvention.DisplayMember = "titreConv"

el problème c que la ligne et ajoutée à la fin merci pou votre aide

[calagan99]

Remplace ton dt.Rows.Add par un dt.Rows.InsertAt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Dim req As String = "select ConventionId,titreConv from Convention where ConventionId in (select ConventionId from Projet where ProjetId in (select ProjetId from ProjetNatureContribution where NatureContributionId in(3,4)  )) order by conventionId asc"
        Dim cnx As New SqlConnection(ConnexionStrSIFHII)
        cnx.Open()
        Dim dAdapter As New SqlDataAdapter(req, cnx)
 Dim dt As New DataTable
        dAdapter.Fill(dt)
        Dim r As DataRow
        r = dt.NewRow
        r.Item(0) = 0
        r.Item(1) = "Séléctionner une convention"
        dt.Rows.InsertAt(r, 0)
listeConvention.DataSource = dt
 listeConvention.ValueMember = "ConventionId"
 listeConvention.DisplayMember = "titreConv"

[abou_alkassim]

oui ca marche tres bien
Merci