Discussion :

[Yogy]

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 :

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

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 !

[Elwe31]

Salut,

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

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
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

[SkyBack]

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

Code :

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

Me.Liste.AppendDataBoundItems = True

[Yogy]

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

Code :

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

Me.Liste.AppendDataBoundItems = True

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

Salut,

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

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
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"