Discussion :

[m4k-Hurrican]

Bonjour,

Je dois être fatigué, je ne trouve pas ma boulette.
Elle doit être grosse comme le nez au milieu de la figure pour que je ne trouve pas ce qui cloche.
Impossible de valider un simple Find sur une liste d'objets.
Voici le code (réduit à l'essentiel) et l'erreur :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
' Classe définissant les champs autorisés
Public Class Champ_Autori
 
    Private _TblName As String
    Private _FldName As String
    Private _Visible As Boolean
    Private _CanUpdate As Boolean
 
    ' Nom de la table
    Public Property TblName As String
        Get
            Return _TblName
        End Get
        Set(ByVal value As String)
            _TblName = value
        End Set
    End Property
 
    ' Nom du champ dans la table
    Public Property FldName As String
        Get
            Return _FldName
        End Get
        Set(ByVal value As String)
            _FldName = value
        End Set
    End Property
 
    ' Le champ peut-il être affiché ?
    Public Property Visible As Boolean
        Get
            Return _Visible
        End Get
        Set(ByVal value As Boolean)
            _Visible = value
        End Set
    End Property
 
    ' Le champ peut-il être mis à jour ?
    Public Property CanUpdate As Boolean
        Get
            Return _CanUpdate
        End Get
        Set(ByVal value As Boolean)
            _CanUpdate = value
        End Set
    End Property
 
    ' Récupération d'un poste champ autorisé dans la liste
    Public Function get_Champ_Autori(tbl As String, fld As String) As Champ_Autori
 
        ' trouve le couple Table / Champ dans la liste
        Dim found_Value As Champ_Autori = champs_Autorisations.Find(Function(c) c.TblName = tbl And c.FldName = fld)
        Return found_Value
 
    End Function
 
End Class

Et au global j'ai la définition de la liste :

Code :

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

Public champs_Autorisations() As List(Of Champ_Autori)

L'erreur affichée sur le find est :
Argument non spécifié pour le paramètre 'match' de 'Public Shared Overloads Function Find(Of T)(array as T(), match as predicate(Of T)) as T'

Quelqu'un pourrait m'ouvrir les yeux en cette fin de semaine ?

[ThetaSigma]

Bonjour,

Je ne sais pas si à tête reposée tu as trouvé la solution, mais en effet l'erreur provient bien de ta fonction de prédicat dans ton Find.
Ta fonction est censée retourner un booléen qui test si ton TblName et ton FldName correspondent au tbl et fld que tu passes.

Il te manque juste à mettre Return dans ta fonction (certainement un oublie de fatigue de fin de semaine )

[m4k-Hurrican]

Merci , mais l'erreur était ailleurs.

Aujourd'hui je suis réveillé, et la boulette était bien évidemment énorme, et je ne l'avais pas vue.

Code :

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

Public champs_Autorisations As List(Of Champ_Autori)

Et non

Code :

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

Public champs_Autorisations() As List(Of Champ_Autori)

[ThetaSigma]

Ah oui en effet et moi je ne suis pas bien réveillé le Return ne sert à rien dans une expression abrégé comme la tienne...