Discussion :

[Kropernic]

Hello,

Sur le projet qui m'occupe actuellement, j'ai besoin de faire ceci :

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
    Public Sub CheckForDuplicateSeason(ByRef detailsOwn As List(Of PROMO_DTO.PromoDetailOwn), Optional ByRef detailsDept As List(Of PROMO_DTO.PromoDetailDepartment) = Nothing)
        If detailsDept Is Nothing Then
            Dim data = (From d1 As PROMO_DTO.PromoDetailOwn In detailsOwn
                        From d2 As PROMO_DTO.PromoDetailOwn In detailsOwn
                        Where d1 IsNot d2 And d1.Seasons.Intersect(d2.Seasons).Count > 0
                        Select d1)
 
            For Each d As PROMO_DTO.PromoDetailOwn In data.ToList
                d.ErrorText = "saison"
            Next
        Else
            Dim data = (From d1 As PROMO_DTO.PromoDetailOwn In detailsOwn
                        From d2 As PROMO_DTO.PromoDetailDepartment In detailsDept
                        Where d1.Seasons.Intersect(d2.Seasons).Count > 0
                        Select d1)
 
            For Each d As PROMO_DTO.PromoDetailOwn In data.ToList
                d.ErrorText = "saison"
            Next
        End If
    End Sub

En l'état, VS me fait la gueule et souligne, dans les deux branches du If, la source de la 2e liste de ma query sous prétexte que c'est un paramètre ByRef. Or la source de la première ligne l'est tout autant (surtout qu'il s'agit de la même liste dans le premier cas).

En soit, ce n'est pas bien grave, je peux faire comme indiquer dans la MSDN et modifier mon code comme suit :

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 Sub CheckForDuplicateSeason(ByRef detailsOwn As List(Of PROMO_DTO.PromoDetailOwn), Optional ByRef detailsDept As List(Of PROMO_DTO.PromoDetailDepartment) = Nothing)
        Dim dto As List(Of PROMO_DTO.PromoDetailOwn) = detailsOwn
        If detailsDept Is Nothing Then
            Dim data = (From d1 As PROMO_DTO.PromoDetailOwn In detailsOwn
                        From d2 As PROMO_DTO.PromoDetailOwn In detailsOwn
                        Where d1 IsNot d2 And d1.Seasons.Intersect(d2.Seasons).Count > 0
                        Select d1)
 
            For Each d As PROMO_DTO.PromoDetailOwn In data.ToList
                d.ErrorText = "saison"
            Next
        Else
            Dim ddp As List(Of PROMO_DTO.PromoDetailDepartment) = detailsDept
            Dim data = (From d1 As PROMO_DTO.PromoDetailOwn In detailsOwn
                        From d2 As PROMO_DTO.PromoDetailDepartment In detailsDept
                        Where d1.Seasons.Intersect(d2.Seasons).Count > 0
                        Select d1)
 
            For Each d As PROMO_DTO.PromoDetailOwn In data.ToList
                d.ErrorText = "saison"
            Next
        End If
    End Sub

Mais j'aimerais bien comprendre le pourquoi malgré tout. Il doit sûrement y avoir une très bonne raison derrière tout ça mais avec le peu d'info que j'ai, cette erreur n'a aucune raison d'être...

[Kropernic]

Bon... Je vois 3 possibilité...

1. J'ai rien compris et j'ai eu un gros coup de bol
2. La MSDN raconte des conneries
3. Y a un sûût dans le framework

D'après cette page, il m'aurait fallu :

• Pour le framework 4.5 : créer une classe implémentant IEqualityComparer(Of Season) (Mais où ? Dans le projet qui abrite la classe Season ou dans le projet où je fais la comparaison ?)
• Pour le framework 4 : que ma classe Season implémente IEquatable(Of Season).

J'ai tenté la première option, rien à faire... (ou alors, voir option 1 du début).
J'ai tenté la seconde option et bingo, ça marque du premier coup.

C'est grave docteur ?

[Sehnsucht]

Question bête ; une utilité concrète avoir mis les paramètres ByRef à la base (parce que c'est surtout ça qui pose problème) ?

[Kropernic]

Question bête ; une utilité concrète avoir mis les paramètres ByRef à la base (parce que c'est surtout ça qui pose problème) ?

Bah pour pouvoir modifier leur contenu et conserver les modifs en sortie de sub.

Mais ta remarque me fait me demander si le fait que ce soit des classes custom (et donc des types par référence) ne fait pas le taff déjà à la base...

[Pol63]

en byval ca gardera aussi le contenu modifié
byref est utile pour les types par valeur pour propager les modifications
pour les types par référence byref sert à changer la référence

genre si dans la sub tu dis param2 = new list() avec byref l'appelant aura le new list

[Kropernic]

Ah bin voilà.

Malgré tout, pour ma culture général, qu'est-ce qui dérange dans le fait d'avoir un paramètre byref dans une query linq ?