Problème pour alimenter une datagrid

Version imprimable

Bonjour , voici mon problème :
j'ai créer un dataset avec plusieurs table : Eleve , classe (avec leurs contraintes) je voudrais que lorsque que je sélectionne dans la combobox la classe , dans la datagrid cela m'affiche les élèves dans cette classe.

Voici mon code :

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
32
33
34
35
Public Class frmModification
 
    Private Sub frmModification_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        '-----------------------------ComboBOX--------------'
        dttclasse = DtsClasse.CLASSE
        dtaclasse.Fill(dttclasse)
 
        bdsclasse.DataSource = DtsClasse
        bdsclasse.DataMember = dttclasse.ToString
 
 
        Me.CmbClasse.DataSource = bdsclasse 
        Me.CmbClasse.DisplayMember = dttclasse.NOMCLASSEColumn.ToString      
        Me.CmbClasse.ValueMember = dttclasse.NUMCLASSEColumn.ToString   
        '--------------------------------FinComBo-------------'
 
        '--------------------------------DataGrid--------------'
        dttEleve = DtsClasse.ELEVE
        dtaEleve.Fill(dttEleve)
 
        bdseleve.DataSource = DtsClasse
        bdseleve.DataMember = dttEleve.ToString()
 
        DtgModifELEVE.DataSource = bdseleve
 
        Me.DtgModifELEVE.Columns(1).Visible = True
        Me.DtgModifELEVE.Columns(2).Visible = True
        Me.DtgModifELEVE.Columns(3).Visible = True
        Me.DtgModifELEVE.Columns(4).Visible = True
 
        '-------------------------FinDataGrid--------------'
    End Sub
 
End Class

Si quelqu'un serait résoudre mon problème
PS: j'ai essayer l'évenement selectindexchanged sur la combo mais ça ne marche pas non plus :cry:

14/12/2011, 12h35
Neiflheim

Bonjour,

Une petite piste de reflexion pour ceux qui rencontre le même problème :

http://davidhayden.com/blog/dave/archive/2006/02/11/2798.aspx

Il faut utiliser une vue par défaut sur la datatable utilisée (en général) en utilisant une dataview personnalisée (tri, filtre, etc).

Le mieux est d'utiliser un dataview

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Public Function fctRecherche(ByVal objDataSet As DataSet, ByVal strNomTable As String, ByVal strChampASC As String, ByVal strFiltre As String) As DataView
        Dim objDataView As New DataView
        With objDataView
            ' Charger la table dans le DataView
            .Table = objDataSet.Tables(strNomTable)
            ' Ordre du trie de la vue filtrée, type string.
            ' ASC" ASC = Trie croissant, DESC Trie décroissant
            .Sort = strChampASC
            ' Trie de la vue filtrée, type string.
            .RowFilter = strFiltre
        End With
        Return objDataView
    End Function