Retourner un tableau de string

Version imprimable

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:

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

Citation:

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 :

Citation:

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

29/04/2010, 17h46
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.
29/04/2010, 17h47
AntaresJon

à tout hasard, essaie de définir

Code:

Dim tableau() As String()

au lieu de

Code:

Dim tableau(count) As String

tu ne dois pas, il me semble, définir sa taille au début
29/04/2010, 17h48
KooKiz

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

Code:

Public Function nom_client() As String()

Puis de renvoyer le tableau en entier ?

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

Code:

Public Function nom_client() As String()

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

Code:

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:

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

Encore merci à tous :)