Byref dans une SUB

Version imprimable

Byref dans une SUB

bonjour, voilà

Ce n'est qu'un test, j'ai 3 tables variable:

les tables sont déclarer en debut en Dim tb1(10, 11), tb2(10, 11), tb3(10, 11) As String

la table tb2(10,11) est rempli, les tables tb1 et tb3 sont vides

je veux remplir les deux tables quand je lance ma SUB la table tbX(,) se remplit bien (la valeur Val1 me l'indique + un espion sur les tables) et comme je l'ai mise en ByRef (ByRef tbX(,) As String) dans ma def de SUB, je devrais remplir un coup ma tb1 et la tb2 !!!

quoi je pense mais la mais table ne se remplissent pas !!! pouvez-vous m'aider ?

merci

j'appel une de mes sub :
Code:

1 2 test(tb1, tb2) test(tb3, tb2)
voici ma def SUB
Code:

1 2 3 4 5 6 7 8 Private Sub test(ByRef tbX(,) As String, ByVal tbY(,) As String) For aa = 0 To 10 For ii = 0 To 11 tbX(aa, ii) = tbY(aa, ii) Dim val1 = tbX(aa, ii) Next Next End Sub

28/08/2013, 17h23
charouel

Passage d'un argument par valeur et par référence (Visual Basic)
28/08/2013, 17h41
jolona

C'est-ce que je fais justement
28/08/2013, 17h46
tomlev

J'ai pas bien compris ce que tu cherchais à faire, mais j'ai l'impression que tu as mal compris le sens de ByRef...

Peux-tu indiquer plus clairement le résultat que tu cherches à obtenir, et montrer le code complet de ton test ?
28/08/2013, 17h46
Pol63

passe par de la POO c'est plus simple à lire et c'est plus simple à coder
(classes, collections)

si tu nous dis ce que tu stockes dans tes tableaux on pourra t'indiquer comment coder ca
29/08/2013, 10h04
jolona

Bonjour, merci pour votre aide,
c'est mon espion qui déconne pour voir, je l'ai modifier et ca marche c'est moi qui déconnais le byref remplit bien ma table...

merci
29/08/2013, 11h05
tomlev

Citation:

Envoyé par tijote

Bonjour, merci pour votre aide,
c'est mon espion qui déconne pour voir, je l'ai modifier et ca marche c'est moi qui déconnais le byref remplit bien ma table...

merci

Le ByRef n'a rien à voir là-dedans; vu que tu n'affectes pas tbX dans la méthode, ça n'a aucun effet. Si tu mets ByVal à la place tu auras le même résultat...

En fait je travail avec une base access, il y a 8 tables et elles ont toutes un nombre de champ différent. mon programme tourne avec le frameworks 2 pas plus.

nous sommes plusieurs à travailler dessus mais pas en réseau !!!

il y a une table en local et une table sur un serveur FTP.

donc le principe, mon programme télécharge la table qui est sur le ftp, j'enregistre chaque table FTP/LOCAL dans une variableFTP(,) et une variableLOCAL(,)

j'ai créé une sub qui fait un test pour vérifier si les éléments sont identique ou pas, et s'il y a un new élément il le rajoute...

tout ça fonctionne bien pour une table car il me fau comme variable : la tableFTP, la tableLOCAL, le nombre de champs dans la table, le nb d'enregistrement max de la table LOCAL, le nb d'enregistrement max de la table FTP et je mettais directement les objets concerné dans la sub mais pour avoir qu'une SUB pour gérer les 8 tables j'ai mis des paramètres dans la sub et du coup au lieu d'appeler ma sub() j'ai sub(para1, para2, etc,) quoi voilà donc dans ma form:

Code:

1
2
runBASEupdate(tbClientFTP, tbClientLocal, 11, cptcllocal, cptclftp)
runBASEupdate(tbMachineFTP, tbMachineLocal, 16, cptMalocal, cptMaftp)

et voisi ma sub:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Private Sub runBASEupdate(ByRef tbFTP(,) As String, ByRef tbLocal(,) As String, ByVal ii As Integer, ByRef cptFALL As Integer, ByVal cptAall As Integer)
 
        'runBASEupdate(tbClientFTP, tbClientLocal, 11, cptcllocal, cptclftp)
 
        Dim resultat As Integer = 0
 
        Dim cptA, cptF As Integer
 
        For cptF = 0 To 999999
            resultat = 0
            If tbFTP(cptF, 1) <> Nothing Then
                For cptA = 0 To cptAall
 
                    Dim val = tbFTP(cptF, 2)
                    Dim val1 = tbLocal(cptA, 2)
                    If tbFTP(cptF, 2) = tbLocal(cptA, 2) Then
                        resultat = 0
                        Exit For
                    Else
                        resultat = 1
                    End If
                Next
                If resultat = 0 Then
                    Dim result As Integer = DateTime.Compare(tbLocal(cptA, 1), tbFTP(cptF, 1))
                    If result < 0 Then
                        'inférieur
                        For iii = 0 To ii
                            tbLocal(cptA, iii) = tbFTP(cptF, iii)
                        Next
                    ElseIf result = 0 Then
                        'egal
                    Else
                        'supérieur
                    End If
                ElseIf resultat = 1 Then
                    For iii = 0 To ii
                        tbLocal(cptFALL, iii) = tbFTP(cptF, iii)
                    Next
                    cptFALL += 1
                End If
            Else
                Exit For
            End If
        Next
    End Sub

j'ai mi un espion sur tbLocal(cptAall, ii) et tbFTP(cptF, ii) => tout ce met a jour nickel

voilà

bon après je fais avec ce que je connais, la POO je connais pas mais je suis open ;)

merci