Discussion :

[gibea00]

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

[Vld44]

que esta un XARRAY ?

[ucfoutu]

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....

[zazaraignée]

Il a combien de dimensions, ton XArray ?

Il ressemble à quoi, ton code ?

[ucfoutu]

Son code ?

Ben... euh ...

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

Code :

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

1
2
3
4
5
Private ArrToutesLesPaies As XArrayDB
Private ArrPaiesValides As XArrayDB
Private ArrPaiesInvalides As XArrayDB
 
Set ArrToutesLesPaies = TDBGridSommaire.Array

à 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.

Voici comment je fais pour parcourir mon Xarray :

Code :

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

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

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"