Discussion :

[Fred0]

Salut,

J'essaye en vain de retourner un tableau de données. Je m'explique : J'ai une fonction qui récupère des valeurs de mon dataSet et les stocke dans un tableau de string que je voudrais renvoyer à la fonction appelante.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Public Function nom_client() As String
        Dim cad As New CAD
        Dim map As New map
        Me.DS = cad.sel(map.nom_client, "nomcli")
 
        Dim var, count As Integer
        Dim a, b As String
        var = 0
        count = 0
        count = Me.DS.Tables("nomcli").Rows.Count
        Dim tableau(count) As String
        count = count - 1
 
        For var = 0 To count
            a = Me.DS.Tables("nomcli").Rows(var).Item("nom_client")
            b = Me.DS.Tables("nomcli").Rows(var).Item("prenom_client")
 
            tableau(var) = a & " " & b
        Next
 
        Return tableau(var)
 
    End Function

Le code compile sans warning, mais quoi qu'il arrive au niveau de ma fonction appelante j'ai des erreurs du genre

NullReferenceException: La référence d'objet n'est pas définie à une instance d'un objet.

Si j'essaye de récupérer des valeurs sous forme directement dans un autre tableau, ça me fait :

Une valeur de type String ne peut pas être convertie en 'Tableau à 1 dimension de string'

Voila, en C j'aurais utilisé un pointeur, la je suis bloqué, je ne sais pas comment faire...

Merci d'avance de votre aide,
Fred

[Flamby38]

Salut.

Premiere étape, execute ton code pas à pas, ca te permettra de déterminer quelle ligne génere une erreur. A partir de là ce sera plus facile de corriger le problème.

[AntaresJon]

à tout hasard, essaie de définir

Code :

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

Dim tableau() As String()

au lieu de

Code :

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

Dim tableau(count) As String

tu ne dois pas, il me semble, définir sa taille au début

[KooKiz]

Tu as essayé de remplacer la signature de ta fonction par :

Code :

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

Public Function nom_client() As String()

Puis de renvoyer le tableau en entier ?

[Fred0]

C'est fantastique les gars!!! Ce qu'il me manquais c'étais la parenthèse à la fin :

Code :

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

Public Function nom_client() As String()

Pour ceux que ça intéressera voici, le code fonctionnel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function nom_client() As String()
        Dim cad As New CAD
        Dim map As New map
        Me.DS = cad.sel(map.nom_client, "nomcli")
 
        Dim var, count As Integer
        Dim a, b As String
        var = 0
        count = 0
        count = Me.DS.Tables("nomcli").Rows.Count
        Dim tableau(count) As String
        count = count - 1
 
        For var = 0 To count
            a = Me.DS.Tables("nomcli").Rows(var).Item("nom_client")
            b = Me.DS.Tables("nomcli").Rows(var).Item("prenom_client")
 
            tableau(var) = a & " " & b
        Next
 
        Return tableau
 
    End Function

l'appel de la fonction et la récupération du tableau :

Code :

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

1
2
        Dim texte() As String
        texte = metier.nom_client()

Encore merci à tous