VB.NET: ajouter manulement un item combobox apres remplissage avec un datasource

Version imprimable

Bonjour, j'essaye avec la commande combo.items.add("Tous") d'ajouter mon élément "Tous" avant ou apres avoir rempli mon combobox avec un dataset :
Code:

1 2 3 4 myDataset = RequeteSQL(myQueryStr) DDL_SELECTION.DisplayMember = "Description" DDL_SELECTION.ValueMember = "Code" DDL_SELECTION.DataSource = myDataset.Tables(0)
mais soit rien n'apparaît soit j'ai une erreur "Impossible de modifier la collection d'éléments lorsque la propriété DataSource est définie"
Comment faire ? :?
Merci !

Salut,

Ben avec un dataTable que tu chages avec ton 'Tous" puis avec touts les rows du datatable qui va bien !!!
exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
            Dim nomCol() As String = {"Code", "Description"}
            Dim tempTable As New Data.DataTable
            Dim TabCol(nomCol.Length) As Data.DataColumn
            For i As Integer = 0 To nomCol.Length - 1
                TabCol(i) = New DataColumn(nomCol(i), Type.GetType("System.String"))
                TabCol(i).ColumnName = nomCol(i).ToString()
                tempTable.Columns.Add(TabCol(i))
            Next
            Dim Rows() As DataRow
            Try
                Rows = myDataset.Tables(0).rows
                Dim NVentree As Data.DataRow
                NVentree = tempTable.NewRow()
                NVentree(0) = "TT"
                NVentree(1) = "Tous"
                tempTable.Rows.Add(NVentree)
                For Each row As DataRow In Rows
                    NVentree = new Data.DataRow
                    NVentree = tempTable.NewRow()
                    NVentree (0) = row(0).ToString
                    NVentree (1) = row(1).ToString 
                    tempTable.Rows.Add(NVentree )
                Next
                DDL_SELECTION.DisplayMember = "Description"
                DDL_SELECTION.ValueMember = "Code"
                DDL_SELECTION.DataSource = tempTable
            Catch ex As Exception
                MessageBox.Show(ex.Message)
 
            End Try

Voila voila

26/02/2008, 14h00
SkyBack

Tu dois paramétrer ta liste pour pouvoir la modifier malgré sa liaison avec les données :

Code:

Me.Liste.AppendDataBoundItems = True

Citation:

Envoyé par SkyBack

Tu dois paramétrer ta liste pour pouvoir la modifier malgré sa liaison avec les données :

Code:

Me.Liste.AppendDataBoundItems = True

ça me dit que .AppendDataBoundItems n'est pas un membre de system.windows.forms.combobox

Citation:

Envoyé par Elwe31

Salut,

Ben avec un dataTable que tu chages avec ton 'Tous" puis avec touts les rows du datatable qui va bien !!!
exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
            Dim nomCol() As String = {"Code", "Description"}
            Dim tempTable As New Data.DataTable
            Dim TabCol(nomCol.Length) As Data.DataColumn
            For i As Integer = 0 To nomCol.Length - 1
                TabCol(i) = New DataColumn(nomCol(i), Type.GetType("System.String"))
                TabCol(i).ColumnName = nomCol(i).ToString()
                tempTable.Columns.Add(TabCol(i))
            Next
            Dim Rows() As DataRow
            Try
                Rows = myDataset.Tables(0).rows
                Dim NVentree As Data.DataRow
                NVentree = tempTable.NewRow()
                NVentree(0) = "TT"
                NVentree(1) = "Tous"
                tempTable.Rows.Add(NVentree)
                For Each row As DataRow In Rows
                    NVentree = new Data.DataRow
                    NVentree = tempTable.NewRow()
                    NVentree (0) = row(0).ToString
                    NVentree (1) = row(1).ToString 
                    tempTable.Rows.Add(NVentree )
                Next
                DDL_SELECTION.DisplayMember = "Description"
                DDL_SELECTION.ValueMember = "Code"
                DDL_SELECTION.DataSource = tempTable
            Catch ex As Exception
                MessageBox.Show(ex.Message)
 
            End Try

Voila voila

ça me dit pour Rows = myDataset.Tables(0).rows que 1 valeur de type System.data.rowcollection
ne peut etre converti en tableau à 1 dimension

et pour la ligne NVentree = New Data.DataRow :
"n'est pas accessible dans ce contexte car elle est protected friend"
:(