Besoin d'aide pour comprendre la déclaration de variables dans une function / sub

Version imprimable

Bonjour à tous,

En fait, j'ai une question simple pour vous (pas pour moi...) :

J'ai une fonction qui extrait des données d'une DataTable en fonction des paramètres qu'on lui passe (Table depuis laquelle on veut extraire des données, numéro du champ à filtrer dans la Table, valeur du filtre, numéro du champ à trier dans la Table, valeur du tri). Ca renvoie un DataRow().

Mon problème c'est que la DataTable peut avoir des champs en string ou en numérique.
Du coup, l'expression de tri va avoir des '' si c'est en string et pas de '' si c'est en numérique.

J'ai écrit donc deux functions séparées pour la même chose selon que le filtrage ce fait sur une string ou un ushort :

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
Public Function ExtractDonneesDataTableDepuisString(ByRef Dtt As DataTable, ByVal NumChampFiltre As Byte, ByVal ExpressionFiltre As String, ByVal NumChampTri As Byte, ByVal ExpressionTri As String) As DataRow()
 
        'Renvoie le résultat en fonction des situations
        If NumChampFiltre = 0 And ExpressionFiltre = "" Then
            If NumChampTri = 0 And ExpressionTri = "" Then
                Return Dtt.Select()
            Else
                Return Dtt.Select("", Dtt.Columns(NumChampTri).ColumnName & " " & ExpressionTri)
            End If
        Else
            If NumChampTri = 0 And ExpressionTri = "" Then
                Return Dtt.Select(Dtt.Columns(NumChampFiltre).ColumnName & " = '" & ExpressionFiltre & "'", "")
            Else
                Return Dtt.Select(Dtt.Columns(NumChampFiltre).ColumnName & " = '" & ExpressionFiltre & "'", Dtt.Columns(NumChampTri).ColumnName & " " & ExpressionTri)
            End If
        End If
 
        Exit Function
 
    End Function
 
    Public Function ExtractDonneesDataTableDepuisUshort(ByRef Dtt As DataTable, ByVal NumChampFiltre As Byte, ByVal ExpressionFiltre As UShort, ByVal NumChampTri As Byte, ByVal ExpressionTri As String) As DataRow()
 
        'Renvoie le résultat en fonction des situations
        If NumChampFiltre = 0 And ExpressionFiltre = 0 Then
            If NumChampTri = 0 And ExpressionTri = "" Then
                Return Dtt.Select()
            Else
                Return Dtt.Select("", Dtt.Columns(NumChampTri).ColumnName & " " & ExpressionTri)
            End If
        Else
            If NumChampTri = 0 And ExpressionTri = "" Then
                Return Dtt.Select(Dtt.Columns(NumChampFiltre).ColumnName & " = " & CStr(ExpressionFiltre), "")
            Else
                Return Dtt.Select(Dtt.Columns(NumChampFiltre).ColumnName & " = " & CStr(ExpressionFiltre), Dtt.Columns(NumChampTri).ColumnName & " " & ExpressionTri)
            End If
        End If
 
        Exit Function
 
    End Function

Est-il possible de n'avoir qu'une fonction qui fait les deux cas de figure?

Je pensais à des trucs mais je ne sais pas si ça existe :

- deux fonctions qui s'appellent pareil mais avec une définition du paramètre ExpressionFiltre différente (un string, l'autre ushort). L'appli choisit en fonction des paramètres passés... Je ne sais pas si ça fonctionne comme ça, ou si ça va planter?
- Ou passer en paramètre un type générique, et dans la fonction selon le type du paramètre, faire '...' ou pas de '';
- Ou rester avec mes deux fonctions différentes comme maintenant?

28/02/2023, 11h01
umfred

soit 2 fonctions, soit (selon moi) un paramètre supplémentaire qui te permettra de choisir quel tri faire dans le corps de la fonction
28/02/2023, 11h13
Phil Rob

Re,
Là je repense à mon tout dernier message (il y a un instant), pourquoi ne pas tout garder en chaîne dans le DataTable ?
Mais pour répondre à ta question, il y a plusieurs possibilités.
Tu pourrais utiliser des paramètres Optional pour, par exemple, spécifier les types quand tu le juges necessaire.
Par ailleurs, il est possible d'utiliser plusieurs fonctions de même nom lorsqu'elles ont des signatures différentes et, sauf erreur de ma part, les types des paramètres participent à la definition de la signature.
Je révise un peu et je t'informe....

Et voilà, vite fait ... :D

Le type des paramètres est effectivement déterminent de la signature d'une Sub ou d'une Function. Il suffit qu'un seul des paramètres soit de type différent et les signatures sont différentes.

Je ne t'envoie pas de projet de test car c'est trop simple, il te suffit d'un Form avec un Button1 et tu peux y coller le code suivant pour apprécier :

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
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(Somme(1, 5))
        MessageBox.Show(Somme("Hola ", "como esta ?"))
        MessageBox.Show(Somme(1.5, 5.1))
 
        Affiche(DonneType(Somme(1, 5)))
        Affiche(DonneType(Somme("Hola ", "como esta ?")))
        Affiche(DonneType(Somme(1.5, 5.1)))
    End Sub
 
    Private Function Somme(N1 As Integer, N2 As Integer) As Integer
        Return N1 + N2
    End Function
 
    Private Function Somme(D1 As Double, D2 As Double) As Double
        Return D1 + D2
    End Function
 
    Private Function Somme(S1 As String, S2 As String) As String
        Return S1 & S2
    End Function
 
    Private Function DonneType(Valeur As String) As String
        Return Valeur.GetType().ToString
    End Function
 
    Private Function DonneType(Valeur As Double) As String
        Return Valeur.GetType().ToString
    End Function
 
    Private Function DonneType(Valeur As Integer) As String
        Return Valeur.GetType().ToString
    End Function
 
    Private Sub Affiche(V As Integer)
        MessageBox.Show(V)
    End Sub
 
    Private Sub Affiche(V As String)
        MessageBox.Show(V)
    End Sub

Bon amusement ...

01/03/2023, 10h28
Krys9292

Je vous remercie encore de vos aides.
J'apprend plus vite du coup et c'est vraiment agréable.

Pour mes deux fonctions, c'est l'idée que j'avais au départ, les signatures... Mais j'avais peur de faire une erreur et que tout plante.
Du coup, je viens de faire la modification et ça se passe bien.

Je vais aussi creuser l'idée des paramètres Optional. Je ne connais pas encore...

Pour les données traitées, en fait, je remplit des DataTables à partir d'une base de données avec la méthode .Fill.
Si cette méthode remplit mes DataTables qu'avec des string seulement (même si certaines donnée sont numériques dans la base de données), ça sert à rien tout ce que je fais.
En fait, je voulais conserver les données en numérique car je me suis dis qu'une string prend de la place mémoire comparé à un ushort ou byte.
Du coup, je m'était dit que ça optimisait le traitement des données de conserver certaines données en ushort et byte.
Je ne sais pas si j'ai raison dans mon raisonnement ?

Tout garder e string serait beaucoup plus simple, c'est vrai. Surtout si .Fill revoie que des données en string dans les DataTables...
02/03/2023, 11h42
popo

Citation:

Envoyé par Krys9292

Mais j'avais peur de faire une erreur et que tout plante.

C'est comme ça qu'on apprend !