Discussion :

[Birdie]

Essayons d'etre clair et concis...

J'ai un dataset comprenant 2 tables :

Table : Produits
Champs : ProduitID, Libelle,FamilleID

Table : Familles
Champs : FamilleID,Libelle

Une relation : FamilleProduit
Parent : Familles.FamilleID
Enfant : Produits.FamilleID

Je desire afficher un Datagrid ne comprenant que 2 colones :
Produits.Libelle et Famille.Libelle

Et je coince....
Qui peut m'aider...merci

[dupin40]

euh ya qu'une requete SQL à faire ....

Code :

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

1
2
3
select Produits.Libelle, Famille.Libelle 
   from Produits P, Familles F 
   where P.FamilleID = F.FamilleID

et le résultat dans ton dataGrid ... non ?

[Birdie]

Heuuu...merci, mais c'est pas ce que je cherche...

Pourquoi creer des relations dans le dataset si c'est pour devoir utiliser une requete sql pour remplir un Datagrid ?

Ca reste ouvert....

[maitrebn]

Il faut qu tu utilises des colonnes calculés.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemdatadatacolumnclassexpressiontopic.asp


Un exemple d'expression

Parent(<NomDeLaReation>).<NomDuChamp>

il me permet d'une table fille d'aller chercher une info dans la table mère !

[Birdie]

J'ai trouvé...testé...et ca marche

J'aurais aimé plus simple, mais bon....

Pöur ceux que ca interresse :

http://support.microsoft.com/default...319082/EN-US/?

[Birdie]

Merci Maitrebn...je vais aller voir cette solution là également.

[bidou]

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
        With MonDataset
            .Relations.Add("Edit_Titre", MonDataset.Tables("Publishers").Columns("PubId"), MonDataset.Tables("Titles").Columns("PubId"), True)
            .Tables("Titles").Columns.Add("Nom Editeur", System.Type.GetType("System.String"), "Parent.Name")
        End With
        Dim MaVue As DataView = MonDataset.Tables("Titles").DefaultView
        Dim CM As CurrencyManager = CType(Me.BindingContext(MaVue), CurrencyManager)
        Me.DataGrid1.DataSource = MaVue
        Dim MaGrille As DataGridTableStyle = New DataGridTableStyle
        MaGrille.MappingName = "Titles"
        Dim pd As System.ComponentModel.PropertyDescriptor = CM.GetItemProperties()("Nom Editeur")
        Dim MaColonne As New DataGridTextBoxColumn(pd)
        MaColonne.MappingName = "Nom Editeur"
        MaGrille.GridColumnStyles.Add(MaColonne)
        pd = CM.GetItemProperties()("Title")
        MaColonne = New DataGridTextBoxColumn(pd)
        MaColonne.MappingName = "Title"
        MaGrille.GridColumnStyles.Add(MaColonne)
        Me.DataGrid1.TableStyles.Add(MaGrille)