Discussion :

[graphicsxp]

Bonjour,

Framework: 2.0
IDE: VBExpress

J'essaye de faire quelquechose d'un peu 'tordu'. Voila, j'ai deux datatables (appellons les dt1 et dt2) contenant exactement le meme nombre d'enregistrements.
J'applique un dataview sur dt1 en me basant sur un filtre qui ne peut etre appliqué sur dt2 . Or, j'aimerais que les enregistrements de dt2 ayant le meme index que les enregistrements 'filtrés' de dt1, soient à leur tour filtrés.
Comment faire pour récupérer ces index ?

C'est pas évident à expliquer, j'espere avoir été assez clair.
Merci

[neguib]

Je n'ai pas pris le temps de tester mais essayes ceci

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
Private WithEvents dv As DataView
Private WithEvents dt1 As DataTable
Private WithEvents dt2 As DataTable
 
'...etc...
 
Private Function Synchronize() As List(Of Integer)
   Dim MesIndex As New List(Of Integer)
 
   For Each drv As DataRowView In Me.dv
      MesIndex.Add(Me.dt1.Rows.IndexOf(drv.Row))
   Next
 
   Return MesIndex
End Function

[graphicsxp]

Salut,



Petite question. Comment filtrer dt2 a partir des index ? Vaut-il mieux déclarer un autre datatable et utiliser importRow ? [EDIT] ce qui d'ailleurs ne va pas marcher puisqu'on ne peut pas avoir la meme datarow dans deux datatables...

[neguib]

Vaut-il mieux déclarer un autre datatable et utiliser importRow ? [EDIT] ce qui d'ailleurs ne va pas marcher puisqu'on ne peut pas avoir la meme datarow dans deux datatables...

C'est pas sûr car ImportRow fait je crois une copie du DataRow :

Tentes ceci alors pour voir

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
 
Private WithEvents dv1 As DataView
Private WithEvents dv2 As DataView
Private WithEvents dt1 As DataTable
Private WithEvents dt2 As DataTable
 
Private Sub Synchronize()
   Dim MesIndex As New List(Of Integer)
 
   For Each drv As DataRowView In Me.dv1
      MesIndex.Add(Me.dt1.Rows.IndexOf(drv.Row))
   Next
 
   Dim dt As DataTable = Me.dt2.Clone
   For Each index As Integer In MesIndex
      dt.ImportRow(Me.dt2.Rows(index))
   Next
 
   Me.dv2 = New DataView(dt)
End Sub

[graphicsxp]

C'est pas sûr car ImportRow fait je crois une copie du DataRow :

Il me semble que si, j'ai essayé, et une fois importé la row ne contient rien, ni colonne ni données.

Tentes ceci alors pour voir

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
 
Private WithEvents dv1 As DataView
Private WithEvents dv2 As DataView
Private WithEvents dt1 As DataTable
Private WithEvents dt2 As DataTable
 
Private Sub Synchronize()
   Dim MesIndex As New List(Of Integer)
 
   For Each drv As DataRowView In Me.dv1
      MesIndex.Add(Me.dt1.Rows.IndexOf(drv.Row))
   Next
 
   Dim dt As DataTable = Me.dt2.Clone
   For Each index As Integer In MesIndex
      dt.ImportRow(Me.dt2.Rows(index))
   Next
 
   Me.dv2 = New DataView(dt)
End Sub

Merci monsieur ! Ca fonctionne impec' !

[neguib]

Il me semble que si, j'ai essayé, et une fois importé la row ne contient rien, ni colonne ni données....
Merci monsieur ! Ca fonctionne impec' !

donc qui sait qui s'est trompé à propos d'ImportRow()

[graphicsxp]

non j'avais raison aussi. Tu m'as dis de faire un .Clone, et la ca fonctionne. Sans ça, ça marche pas. Bon allez c'est toi qui avais raison