Problème avec les Xarray

Bonjour !

Je dois modifier un projet en VB6.

Ce que je dois faire c'est parcourir un Xarray existant.
Celui-ci contient toutes les données. Il y a une colonne, la quatrième, dont le valeur possible est O ou N.

J'aimerais parcourir ce Xarray pour en créer 2 autres. Soit un avec les données dont la valeur de la 4e colonne est O et l'autre avec celles dont la valeur est à N.

Comment faire ?

Merci

que esta un XARRAY ?

Juste l'expression d'une intuition, avant de me mettre au dodo :

Le résultat d'un split ou de l'équivalent, pour mettre des données dans un array.

Quant à "XArray" ? Nommage, tout simplement (à la mode américaine).

Conclusion ? (Copier-coller à comprendre...)

Je retourne vite là d'où je suis sorti....:lol:

Il a combien de dimensions, ton XArray ?

Il ressemble à quoi, ton code ?

Son code ?

Ben... euh ...

Le voilà, son ... euh..."code" (qu'il me corrige si mon petit doigt m'a trompé ...)

Code:

---

1 2 3 4 5

Private ArrToutesLesPaies As XArrayDB Private ArrPaiesValides As XArrayDB Private ArrPaiesInvalides As XArrayDB   Set ArrToutesLesPaies = TDBGridSommaire.Array

---

Citation:

---

à partir de cette xArray, je voudrais le parcourir pour pouvoir créer 2 nouveaux xArray en fonction de la valeur qui se trouve dans la 5e colonne.

---

Citation:

---

Voici comment je fais pour parcourir mon Xarray :

---

Code:

---

1 2 3 4 5 6 7 8

Dim i As Long For i = 0 To ArrToutesLesPaies.Count(1) If CStr(ArrToutesLesPaies.Value(i, 4)) = "N" Then 'ArrPaiesInvalides ElseIf CStr(ArrToutesLesPaies.Value(i, 4)) = "O" Then 'ArrPaiesValides End If Next

---

Citation:

---

Mon problème c'est pour ajouter les lignes à mes Xarray arrPaiesInvalides et arrPaiesValides.

Comment faire pour ajouter une ligne à un Xarray ?

---

Sur DVP, on aurait écrit, par souci de la mode, "DVPArray"... Ailleurs , ma foi ... "XArray"