Discussion :

[prophetky]

Hello,

JE voudrais réaliser une jointure de deux Datatables pour afficher ces données dans une Grid. j'y arrive avec le code suivant, mais j'ai des problème de performances assez vite ( +- 2500 records ).

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
 
' Create DataViews for the Categories and Products tables.
        Dim catView As DataView = New DataView(myDS.TabEtud, "", "Nom", DataViewRowState.CurrentRows)
        Dim ProdView As DataView
 
        ' Iterate through the Categories table.
        Dim catDRV, prodDRV As DataRowView
 
        For Each catDRV In catView
            'Console.WriteLine(catDRV("Nom"))
 
            ' Create a DataView of the child product records.
            ProdView = catDRV.CreateChildView(myDS.Relations("FK_TabEtud_TabCour"))
            ProdView.Sort = "brol"
 
            For Each prodDRV In ProdView
                'Console.WriteLine(vbTab & prodDRV("brol"))
                Dim rowView As testDataSet.ViewRelationRow = myDS.ViewRelation.NewRow
                rowView.idEtud = catDRV("idEtud")
                rowView.Nom = catDRV("nom")
                rowView.Prenom = catDRV("prenom")
                rowView.brol = prodDRV("brol")
                myDS.ViewRelation.AddViewRelationRow(rowView)
            Next
 
        Next
 
        DataGridView1.DataSource = myDS.ViewRelation

Est ce que quelqu'un aurait une autre solution, ou un moyen pour améliorer les performances ??

Merci

[neguib]

Pourquoi ne crées-tu pas une DataRelation directement pour eviter le ForEach
Exemple à adapter à ton besoin

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 Dim CdsParClient As DataRelation 
 REM :Creer la colonne parent 
 Dim ColPar As DataColumn=Me.ds.Tables("Clients").Columns("IDClient") 
 REM :Creer la colonne enfant 
 Dim ColEnf As DataColumn=Me.ds.Tables("Cds").Columns("IDClient") 
 REM :Creer la relation 
 CdsParClient = New DataRelation("CdsParClient", ColPar, ColEnf) 
 REM :Ajouter la relation au Dataset 
 Me.ds.Relations.Add(CdsParClient) 
 REM :Lier le Datagrid aux données à afficher 
 Me.MonDataGrid.SetDataBinding(ds, "Clients")

[prophetky]

justement mon problème se situe la, je n'arrive pas à l'adapter à mes besoins.

Je n'arrive pas afficher une table qui représenterais la relation dans une même grid ...

Merci

[neguib]

justement mon problème se situe la, je n'arrive pas à l'adapter à mes besoins.
Je n'arrive pas afficher une table qui représenterais la relation dans une même grid ...
Merci

C'est donc une exigence de design, car c'est justement ce que fait le code ci dessus, seulement il permet à l'utilisateur de deployer ou pas l'arborescence pour voir le detail des commandes d'un client. Donc pour arriver au resultat que tu souhaites, il faudrait juste après coup forcer le deploiement de toutes les arborescence non

[prophetky]

Ouais c est ce que le code que j'ai mis fait, mais l'ennui c est qu'il est peu gourmand en performance...

Je pense pas qu'il y a une autre solution

[neguib]

Ouais c est ce que le code que j'ai mis fait, mais l'ennui c est qu'il est peu gourmand en performance...

Je pense pas qu'il y a une autre solution

De toute manière, si dans ton cas le nombre de produits par categorie devient très conséquent en volume, adopte une solution intermediaire qui serait d'associer un ComboBox au Datagrid qui liste toutes les categories et que l'utilisateur puisse en selectionner une à la fois pour affichage du détails, cela limitera déjà le temps de la boucle For Each

De plus au chargement en adoptant ma solution tu gagnes du temps puisque il ne restera qu'à produire dynamiquement un dataview à aprtir de DataRow.GetChildRows(DataRelation)