chargement d'un ComboBox

Version imprimable

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:

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

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

Code:

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"

28/12/2009, 17h40
abou_alkassim

oui ca marche tres bien
Merci