Discussion :

[julien006]

Slt,

je viens vous exposer mon problème en espérant avoir un petit éclaircissement.
j'ai actuellement un DataSet avec une datatable contenant l'ensemble du contenu de la table correspondante dans la DB
j'essaye d'extraire X lignes de ce datatable et de les copier dans un autre Datatable afin de l'utilisé dans un combobox
j'ai en fait 2 combobox , l'un reduit le contenu de l'autre
il est important que je garde le contenu du 1er datatable complet pour la prochaine sélection.

j'ai essayé ces 2 solutions et j'obtiens 2 messages d'erreur différents...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dtt_extract = DTS_Dico.Tables("MaTable").Clone
 
 For Each r As DataRow In DTS_Dico.Tables("MaTable").Rows
 
  If r.Item("Moncritere") = MaCb.SelectedValue Then 
 
    Dim ro As DataRow = Dtt_extract.NewRow
    ro = r 
    Dtt_extract.Rows.Add(ro) 
 
  End If
 
 Next

j'obtiens le message : " Cette lignes appartient déjà à une autre table"
Bizarre je viens de la créer...
Peut être y a t il une référence dans la ligne copiée qui fais croire à la nouvelle qu'elle est déjà associée ailleurs ?


j'ai également essayer

Code :

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

Dtt_extract.ImportRow(ro)

au lieu de

Code :

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

Dtt_extract.Rows.Add(ro)

Et la je récupère toujours la premier ligne trouvée, jamais les suivantes...


Seconde solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dtt_extract = DTS_Dico.Tables("MaTable").Clone
 
 For Each r As DataRow In DTS_Dico.Tables("MaTable").Rows
 
  If DTS_Dico.Tables("MaTable").Select("MonCritere=" & MaCb.SelectedValue)(i).Item("MonCritere") = MaCb.SelectedValue Then
 
       Dtt_extract.Rows.Add(DTS_Dico.Tables("MaTable").Select("MonCritere=" & MaCb.SelectedValue)(i).ItemArray)
  End If
 
  i += 1
 
 Next

Ici tout fonctionne bien je récupère bien mes X lignes correspondantes à mon critère, le problème est le i+=1 qui arrive en dehors de la limite lorsque mon critère n'est plus trouvé...

Quelqu'un aurai une autre idée ou pourrait me dire comment amélioré l'une de ces 2 boucles ?

Merci.

[thierry007]

utilise un DataReader

[Graffito]

Pour info, la fonction Select des DataTable est interéssante à connaitre :

Code :

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

DataRow[] result = MyTable.Select("Size >= 230 AND Sex = 'm'");

[julien006]

Merci pour vos 2 réponses

j'ai réussi en utilisant le .select sur le datatable

Code :

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

1
2
3
4
5
6
 
Dim tabrow() As DataRow = DTS_Dico.Tables("MaTable").Select("MonCritere=" & MaCb.SelectedValue)
    For Each r As DataRow In tabrow
           ' MessageBox.Show(r.Item("MonID"))
           Dtt_extract.ImportRow(r)
    Next

Par contre, lors du debug , je met un messagebox afin de voir le contenu de mon ID et j'obtiens toujours celui de la 1er ligne alors que sur l'interface j'ai bien mes X lignes correspondantes....

Etrange

Pour ce qui est du DataReader, je doute pas de la possibilité de l'utilisé,mais perso je l'ai toujours utilisé 1 seul fois pour cree mon datatable en lisant la table dans ma Db, jamais pour lire une Datatable. J'ai préféré partir sur une piste me parlant un plus .
Par contre si tu aurais un petit exemple d'utilisation je suis pas contre( ou je chercherai sur le net a l'occasion )