Problème avec datatable et datarow

Bonjour

J'ai le code suivant:

Code:

---

1 2 3 4 5 6

Dim Table As System.Data.DataTable Dim Lignes As System.Data.DataRow   Table = mDS.Tables("pays") Lignes = Table.Select("payid = '" & ID & "'") ' Erreur ici

---

qui me donne l'erreur suivante

Citation:

---

Erreur 1 Une valeur de type 'Tableau à 1 dimension(s) de System.Data.DataRow' ne peut pas être convertie en 'System.Data.DataRow'

---

Lorsque je regarde dans l'aide, j'ai un code similaire au mien (du moins je le pense) qui est proposé

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim table As DataTable = DataSet1.Tables("Orders")   ' Presuming the DataTable has a column named Date. Dim expression As String expression = "Date > '1/1/00'" Dim foundRows() As DataRow   ' Use the Select method to find all rows matching the filter. foundRows = table.Select(expression)

---

et lorsque je regarde la syntaxe de Select, VB me dit qu'il renvoie un datarow...

Doù ma perplexité :aie: :bug: :(

Avez-vous une idée sur l'erreur que je commets?

D'avance, merci pour votre contribution

oui tu dois déclarer

Code:

---

Dim Lignes() As System.Data.DataRow

---

Select renvoie un tableau de DataRow, pas un DataRow unique

Merci Bidou pour ta réponse, mais...

Je ne vois pas beaucoup de différences (aucune, en fait :cry: ) entre ton code et le mien... mais je me trompe peut-être...

Bidou,

Citation:

---

Envoyé par bidou

Select renvoie un tableau de DataRow, pas un DataRow unique

---

Grâce à ta remarque sur le fait que select renvoie un tableau, j'ai adapté le code comme ceci:

Code:

---

1 2 3 4 5 6

Dim Lignes As Array Dim Ligne As DataRow = Nothing   Table = mDS.Tables("pays") Lignes = Table.Select("payid = '" & ID & "'") Ligne = Lignes(0)

---

et cela fonctionne.

Donc, re-merci Bidou... ;)