parcourir et arranger datatable

**Alex35** · 07/11/2007, 12h37

bonjour, grace a une requete sql assez complexe, j'obtiens une datatable de ce style :

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
 
 Pa	97	    2.0905 %	OVE	8	10
 Pa	97	    2.0905 %	LVE	9	24
 Pa	97	    2.0905 %	GOO	12	22
CEL	2	    0.0431 %	NEW	1	22
DIM	4	    0.0862 %	PRO	4	5
DIM	4	    0.0862 %	KEL	4	12
DIM	4	    0.0862 %	OVE	8	10
ESV	1	    0.0215 %	LOC	1	3
ESV	1	    0.0215 %	 Pa	1	97
GOO	22	    0.4741 %	YAH	2	4
GOO	22	    0.4741 %	 Pa	12	97
KEL	12	    0.2586 %	DIM	4	4
KEL	12	    0.2586 %	 Pa	7	97
KEL	12	    0.2586 %	OVE	8	10
LOC	3	    0.0646 %	LVE	1	24
LOC	3	    0.0646 %	ESV	1	1
LOC	3	    0.0646 %	 Pa	2	97
LVE	24	    0.5172 %	KEL	4	12
LVE	24	    0.5172 %	OVE	4	10
LVE	24	    0.5172 %	 Pa	9	97
MIV	3	    0.0646 %	 Pa	3	97
NEW	22	    0.4741 %	 Pa	1	97
NEW	22	    0.4741 %	CEL	1	2
OVE	10	    0.2155 %	DIM	8	4
OVE	10	    0.2155 %	 Pa	8	97
OVE	10	    0.2155 %	PRO	10	5
PRO	5	    0.1077 %	KEL	4	12
PRO	5	    0.1077 %	DIM	4	4
PRO	5	    0.1077 %	OVE	10	10
YAH	4	    0.0862 %	GOO	2	22

j'aimerai la parcourir pour la mettre en forme de maniere a ce que j'obtienne une datatable comme cela :

Code :

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

1
2
3
4
5
6
Pa	97	    2.0905 %	OVE	8	10	LVE	9	24	GOO	12	22
CEL	2	    0.0431 %	NEW	1	22
DIM	4	    0.0862 %	PRO	4	5	KEL	4	12	OVE	8	10
ESV	1	    0.0215 %	LOC	1	3	 Pa	1	97
GOO	22	    0.4741 %	YAH	2	4	 Pa	12	97
KEL	12	    0.2586 %	DIM	4	4	 Pa	7	97	OVE	8	10

c'est a dire faire un filtre sur la premiere colonne de maniere a ne me renvoyer que des lignes uniques (pour la premiere), puis ajouter a cette ligne soit trois soit 6 colonnes supplémentaires et les remplir correctement suivant les données....

Suis je clair???

D'avance merci!

PS:
ma datable est de ce style :

Code :

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

1
2
3
4
5
6
7
8
9
Dim dtRef As New DataTable()
 
        dtRef.Columns.Add(New DataColumn("Ref", GetType(String)))
        dtRef.Columns.Add(New DataColumn("NbRef", GetType(Integer)))
        dtRef.Columns.Add(New DataColumn("Poids", GetType(String)))
 
        dtRef.Columns.Add(New DataColumn("ReferentB", GetType(String)))
        dtRef.Columns.Add(New DataColumn("NbrReferentB", GetType(Integer)))
        dtRef.Columns.Add(New DataColumn("NbrTotalReferentB", GetType(Integer)))

**Alex35** · 07/11/2007, 14h59

j'ai bien essayé un truc comme cela :

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
For ntmp = 0 To dtRef.Rows.Count - 1
            dtRef.DefaultView.RowFilter = "Ref = " & dtRef.Columns("Ref").ToString
            dtRow = dtOrg.NewRow()
            dtRow("Ref") = dtRef.DefaultView.Item(ntmp)("Ref").ToString
 
            dtRow("NbRef") = dtRef.DefaultView.Item(ntmp)("NbRef")
 
            dtRow("Poids") = dtRef.DefaultView.Item(ntmp)("Poids")
 
            dtRow("ReferentB") = dtRef.DefaultView.Item(ntmp)("ReferentB")
 
            dtRow("NbrReferentB") = dtRef.DefaultView.Item(ntmp)("NbrReferentB")
 
            dtRow("NbrTotalReferentB") = dtRef.DefaultView.Item(ntmp)("NbrTotalReferentB")
 
            dtRow("ReferentC") = dtRef.DefaultView.Item(ntmp)("ReferentB")
 
            dtRow("NbrReferentC") = dtRef.DefaultView.Item(ntmp)("NbrReferentB")
 
            dtRow("NbrTotalReferentC") = dtRef.DefaultView.Item(ntmp)("NbrTotalReferentB")
 
            dtRow("ReferentD") = dtRef.DefaultView.Item(ntmp)("ReferentB")
 
            dtRow("NbrReferentD") = dtRef.DefaultView.Item(ntmp)("NbrReferentB")
 
            dtRow("NbrTotalReferentD") = dtRef.DefaultView.Item(ntmp)("NbrTotalReferentB")
 
            dtOrg.Rows.Add(dtRow)
        Next

malheureusement le rendu n'est pas ca du tout! :

Ref NbRef Poids ReferentB NbrReferentB NbrTotalReferentB ReferentC NbrReferentC NbrTotalReferentC ReferentD NbrReferentD NbrTotalReferentD

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
Pa 97 2.0905 % OVE 8 10 OVE 8 10 OVE 8 10 
Pa 97 2.0905 % LVE 9 24 LVE 9 24 LVE 9 24 
Pa 97 2.0905 % GOO 12 22 GOO 12 22 GOO 12 22 
CEL 2 0.0431 % NEW 1 22 NEW 1 22 NEW 1 22 
DIM 4 0.0862 % PRO 4 5 PRO 4 5 PRO 4 5 
DIM 4 0.0862 % KEL 4 12 KEL 4 12 KEL 4 12 
DIM 4 0.0862 % OVE 8 10 OVE 8 10 OVE 8 10 
ESV 1 0.0215 % LOC 1 3 LOC 1 3 LOC 1 3 
ESV 1 0.0215 % Pa 1 97 Pa 1 97 Pa 1 97 
GOO 22 0.4741 % YAH 2 4 YAH 2 4 YAH 2 4 
GOO 22 0.4741 % Pa 12 97 Pa 12 97 Pa 12 97 
KEL 12 0.2586 % DIM 4 4 DIM 4 4 DIM 4 4 
KEL 12 0.2586 % Pa 7 97 Pa 7 97 Pa 7 97 
KEL 12 0.2586 % OVE 8 10 OVE 8 10 OVE 8 10 
LOC 3 0.0646 % LVE 1 24 LVE 1 24 LVE 1 24 
LOC 3 0.0646 % ESV 1 1 ESV 1 1 ESV 1 1 
LOC 3 0.0646 % Pa 2 97 Pa 2 97 Pa 2 97 
LVE 24 0.5172 % KEL 4 12 KEL 4 12 KEL 4 12 
LVE 24 0.5172 % OVE 4 10 OVE 4 10 OVE 4 10 
LVE 24 0.5172 % Pa 9 97 Pa 9 97 Pa 9 97 
MIV 3 0.0646 % Pa 3 97 Pa 3 97 Pa 3 97 
NEW 22 0.4741 % Pa 1 97 Pa 1 97 Pa 1 97 
NEW 22 0.4741 % CEL 1 2 CEL 1 2 CEL 1 2 
OVE 10 0.2155 % DIM 8 4 DIM 8 4 DIM 8 4 
OVE 10 0.2155 % Pa 8 97 Pa 8 97 Pa 8 97 
OVE 10 0.2155 % PRO 10 5 PRO 10 5 PRO 10 5 
PRO 5 0.1077 % KEL 4 12 KEL 4 12 KEL 4 12 
PRO 5 0.1077 % DIM 4 4 DIM 4 4 DIM 4 4 
PRO 5 0.1077 % OVE 10 10 OVE 10 10 OVE 10 10 
YAH 4 0.0862 % GOO 2 22 GOO 2 22 GOO 2 22

je suis un peu a cours d'idée la....

**boubounne** · 07/11/2007, 15h03

Euh juste comme ca tu as du faire un copier coller car il y a plusieur fois
nbreferenceB, et des truc comme ca ... t'est sur que ton code est correcte ??

**Alex35** · 07/11/2007, 15h05

bah justement j'ai testé et le resultat n'est pas convaincant donc non le code n'est pas correct....

**boubounne** · 07/11/2007, 15h16

Il faut modifier ta datatable, elle doit etre du type :
SI c'est possible evidemment...

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
 
dtRef.Columns.Add(New DataColumn("Ref", GetType(String)))
        dtRef.Columns.Add(New DataColumn("NbRef", GetType(Integer)))
        dtRef.Columns.Add(New DataColumn("Poids", GetType(String)))
 
        dtRef.Columns.Add(New DataColumn("ReferentB", GetType(String)))
        dtRef.Columns.Add(New DataColumn("NbrReferentB", GetType(Integer)))
        dtRef.Columns.Add(New DataColumn("NbrTotalReferentB", GetType(Integer)))
 
dtRef.Columns.Add(New DataColumn("ReferentD", GetType(String)))
        dtRef.Columns.Add(New DataColumn("NbrReferentC", GetType(Integer)))
        dtRef.Columns.Add(New DataColumn("NbrTotalReferentC", GetType(String)))
 
        dtRef.Columns.Add(New DataColumn("ReferentD", GetType(String)))
        dtRef.Columns.Add(New DataColumn("NbrReferentD", GetType(Integer)))
        dtRef.Columns.Add(New DataColumn("NbrTotalReferentD", GetType(Integer)))

**Alex35** · 07/11/2007, 15h19

ce que j'ai fait c'est une autre datatable :

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
Dim dtOrg as New datatable()
 dtOrg.Columns.Add(New DataColumn("Ref", GetType(String)))
        dtOrg.Columns.Add(New DataColumn("NbRef", GetType(Integer)))
        dtOrg.Columns.Add(New DataColumn("Poids", GetType(String)))
 
        dtOrg.Columns.Add(New DataColumn("ReferentB", GetType(String)))
        dtOrg.Columns.Add(New DataColumn("NbrReferentB", GetType(Integer)))
        dtOrg.Columns.Add(New DataColumn("NbrTotalReferentB", GetType(Integer)))
 
        dtOrg.Columns.Add(New DataColumn("ReferentC", GetType(String)))
        dtOrg.Columns.Add(New DataColumn("NbrReferentC", GetType(Integer)))
        dtOrg.Columns.Add(New DataColumn("NbrTotalReferentC", GetType(Integer)))
 
        dtOrg.Columns.Add(New DataColumn("ReferentD", GetType(String)))
        dtOrg.Columns.Add(New DataColumn("NbrReferentD", GetType(Integer)))
        dtOrg.Columns.Add(New DataColumn("NbrTotalReferentD", GetType(Integer)))

mais ca ne resout pas mon pb....

**boubounne** · 07/11/2007, 15h31

Perso je trouve que l'on s'embrouille un peu trop pour rien, avec une requete SQL bien montée y'a moyen d'eviter tout ce bor##l. Sinon, comment fait tu pour la recuperation de tes données. Peut tu mettre le code de recuperation des données et d'insertion dans la datatable STP

**Alex35** · 07/11/2007, 15h44

si tu veux voir les requetes y a aussi un post dans le Langage sql!

mais les requetes sont deja bien assez complexe comme cela!!

Enfin bref excuse moi mais j'avoue que la j'en ai un peu marre de tourner en rond et de n'arriver a rien!

merci qd mm d'essayer de m'aider!

**mathrb** · 12/11/2007, 14h03

Moi je verrais un truc dans le genre
Compter le nombre maximale d'une occurence
définir un datatable avec le nombre de colonne maximale possible
pour chaque groupe d'occurence, tu ajoute une row avec
3 colonnes pour les résultats similaires, puis après tu ajoutes a la suite les non similaires
J'espère que ça pourra t'aider

parcourir et arranger datatable

VB.NET

Discussions similaires

Partager

Partager